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LA CAO SANS PEINE 


Jean-Pierre Petit 


PROLOGUE : 


"La CAO sans peine”, livre paru initialement en 1984, sous le titre 
PANGRAPHE (la maison d'édition a disparu depuis longtemps) est une 
initiation à la conception assistée par ordinateur. À l'appui, un programme 
écrit en BASIC, qui tournait à cette époque sur un Apple II, dont la mémoire 
centrale était de 48 K {près de mille fois inférieure à la mémoire de mon 
PC). Le BASIC est un peu tombé en désuétude, pour des raisons de mode. En 
effet des BASIC plus récents, s'affranchissant des défaut du langage primitif 
(suppression des numéros de lignes, emploi d'étiquettes pour repérer les sous- 
programme et les adresses en général, redéfinition des variables, introduction 
d'un compilateur) a fini par égaler en performances d'autres langages 
considérés comme plus évolués, comme le PASCAL. 

Mais le BASIC avait un avantage, il était très simple à apprendre, à 
enseigner. Le lecteur-programmeur n'aura guère de difficultés à adapter le 
logiciel présenté 1c1 dans un autre langage de son choix. L'essentiel est donné 
: l'architecture des données, les manipulations de base (transformations 
géométriques), la façon de créer des images à volonté et de créer des vues en 
perspective. 

PANGRAPHE fut suivi par deux autres logiciels, toujours écrits en BASIC : 
SUPERAMSTRAD-3D et SCREEN, où les parties cachées étaient éliminées 
en utilisant l'algorithme du peintre". 

PANGRAPHE servit de point de départ à plusieurs équipes de 
programmeurs qui développèrent des produits. Certains eurent même la 
gentillesse de me dédier leur logiciel, évidemment beaucoup plus 
perfectionnés. Pas mal de gens s'amusèrent beaucoup avec 
SUPERAMSTRAD-3D, qui tournait sur un "6128", autre antiquité du 
bestiaire informatique. Avant la lettre il s'agissait d'une "programmation 
orientée objet”, avec recours à une "mémoire virtuelle". Le lecteur pouvait 
disposer d'une bibliothèque d'objet et réaliser tes tas de nouvelles opérations, 
comme des fusions d'objets. Les "translations-fusions" permettaient de 
multiplier des fenêtres sur la facade d'un immeuble, ou des colonnes sur celle 
d'un temple. Les translation-rotation-fusions combinées permettaient de créer 
des escaliers en colimaçon à partir d'une simple marche, etc. 

La CAO est un monde infini. À l'époque nous étions limités par les 
mémoires et les vitesses de nos machines, non par notre imagination. Au 
début des années quatre-vingt, certains se souviendront peut être que javais 
présenté, à TF1, un petit film créé par un Apple Ile, où l'ont voyait une 


succession de vues d'avion d'un village, parties cachées éliminées. Les 
spécialistes se demandèrent comment une machine aussi lente, cadencée à 2 
mégahertz, pouvait produire des images aussi complexes, à une telle vitesse. 
En fait, elles avaient été “"précalculées" et stockées sur une carte mémoire 
additionnelle de 512 K (les "pages écran" Apple faisait... 8K). Bref ceci 
préfigurait, avant la lettre, le … videodisque. 

À l'époque où je dirigeais le Centre Informatique d'Enseignement que 
j'avais créé à la Faculté des Lettres d'Aix-en-Provence nous avions utilisé la 
capacité de faire afficher par l'Apple Il deux "pages écran”, en alternance, à 
un rythme élevé, pour créer un système de vision en relief. Un moteur 
électrique, fixé sur un casque de moto, actionnait des caches rotatifs, 
masquant et découvrant les yeux droit et gauche de l'utilisateur. Un 
contacteur, délivrant un signal en 5 volts sur l'une des entrées de la machine, 
commutait les pages écran “œil droit” et “œil gauche”, de manière synchrone, 
l'ensemble ayant été baptisé "STEREOCYCLETTE". 

Ma foi, si le lecteur de la "CAO sans peine” manifestent leur curiosité, nous 
pourrons leur expliquer encore beaucoup de choses. Rien ne ressemble plus à 
la CAO qu'un ensemble de boites de MECCANO. Dans la mesure où le 
"source" est fourni (ce qui fut toujours le cas) rien n'empêche un nouveau 
venu d'adjoindre quelque gadget de son cru, un sous programme permettant 
d'engendrer toutes les coquilles d'escargot possibles, par exemple. 

La CAO, les programmes de pilotages ou de jeu d'échec, sont maintenant 
largement répandus et de plus en plus performants, comme les voitures 
télécommandées à pile, où les robots qui marchent. Programmer est devenu 
dépassé ou considéré comme une affaire de pros. Pourtant vous ne trouverez 
nulle part un logciel assez fou pour vous permettre, comme PANGRAPHE, 
de voir ce que vous avez derrière la tête. 
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Ra ous. Un gt pero one Un Lamen ble do Gina FICHIERS 
XF CL) 
+R 0 
Zr(r 
+ ékmt L'incliu &i La chaire et T L'ade ob Roxt 
XT (3,#) 
IR 
27T (3,4 
nent les de quatiome pont da La Vtaième chaux . 


2 


L 


TPS Mie 
VC) 
en (se +) 


A 


Vétpema …. qu'est-ce qu'on à 
ce. Bar ? quanan fout ke ! 


l 


ce 2 um mauuraira Ave … 


Là L'an te march neuma forment 


D) 


n 74 DA D 
{ | 17 - DS 
He) 





AK , pe me Acta plu où j'en du avec tout clan. (Cela amuqat 
pure ce medile at capalle de compmurche ce qu'on Lui dt. 
Permanent , 11 ex cute. 

KE 4 a d'abud con ris lus XT(T,T), VC) 2e). 

DE ne fon À en muts un fiha N(E) Qi mo olmmmera Le 
Maure de faut Ju haque orne. Et ceux fichiers clones 
Les Uibevutes - denam K (1,3) , Y(L,T) 


Sun L'APPLE TE ra gore 


L DIMXT(34,9) NT (Ga,9),2T G%,9),XGa,3),Y G4,9),NG9 


que Féunrt Le hoitmeut d'un objet de 30 chaines, comprr font 

go lus mouf au (en ait 31 chaines d'au plus dix points 
Mas je n'a FRA my L'une Tee ). 

Ce. aenroler da. -phac en méme aux un SK, Crigrera vue 
Ja apr on pour une propane à mulliples fonlius, 
+ PROGRAMME PANGRAPHE, 

da OCTO EONES Cebaine. Heumés ). 


g I SR Le hiux veut alu cts 
Gacis plus préc, nan m'empale 
7 La we plus de pan un 
3 a chou (qu fant man randuuu 
€ 4 Qui put Li plus gt Ee Mmaina). 
& 


2e | 


Yan exam le | 


 … 
DIMXT (15,17) ,YTU6,1),27(15,17), x (6, 7) YO5,],NGS) 


cndes à L'aide de 17 pom/. 6.17, 
C4 na des pan l  1y 
d'affichage de L'écran, 2 ja 


ML nait qua rue lt o 4 acoun- 12 





WA 


Bon , Le Cemanur e & M'g 
tive un pan clamd Toute 
tte affaie . Berne , je envi 
J'ai ma La maux Aux un 

Aro gramme Lout pan un 
cœnfoin Team -Pione PETIT, 
rose otuine RSS di 
À appelle PANGRAPHE et À 

a L'air de Apandue à Lx 





Votes la , Lakes. 





PANGRAPHE 


— C'est un Logic qu a El Ch un un Apple I 48 K€ 
Content das pins poumitlaunt 2 CRÉER DES OBETS cc 
a Une STRUCTURE D'ACQUISITION DE DONNÉES. 


On put am to cher a bals ,qui #wt cles Éhaons As ont, 
S ,tun un ie Aouyle une olakottz. 


dan ennemb lon de CHAINE 








- PANGRAPHE OBJET 4 put pan un PROGRAMME 
PRINCIPAL, por L'utiunmédione d'un MENU ,aui nnvoit 
a Cut un ensemble de SOUS - PROGRAMMES : 


O IF FD= 1 THENS 
11L=0-REM PANGRAPHE OBJET 7/7/:4 
2 DIM XT(30,9),YT(30,97),ZT(30,9),X(30,9),Y(30,9),N(30):FD = 4 
3 D$ = CHRS (13) + CHARS (4) 
> TEXT : HOME 
: + © THEN 310 


PROGRAMME MENU 


30 VTAB 15: HTABRB 15 

40 PFRINT “VOULEZ-VOUS: 

50 FOR TE = 1 TO SOO0: NEXT 

680 HOME 

70 PRINT 

1 VTAB 3: HTAB ©6: PRINT "'PANGRAPHE OBJET" 
70 VTABRB 1 


100 PRINT "i-CREER UN OBJET" 
110 PRINT "Z-STOCKER UN OBJET" 
120 PRINT "3-CHARGER UN OBJET" 
130 PRINT "4-COMPLETER UN OBJET" 
140 PRINT "S5S-MODIFIER UN OBJET" 
150 PRINT 'é-(REPRESENTER UN OBJET)! 
160 PRINT "7-(STOCKER UNE IMAGE)" 
179 PRINT "S-(CHARGER UNE IMAGE)" 
20 PRINT "S-MANIPULER UN OBJET" 
170 PRINT "10-DEFINIR UN BLOC D'OBJETS" 
200 PRINT "11-CONSULTER UN FICHIER BLOC" 
210 PRINT "‘1=—" 
220 PRINT ‘13-" 
230 PRINT ‘"'14—" 
240 PRINT "15-" 
220 PRINT ''1s—" 
260 PRINT "17-AFFICHER LE CATALOGUE" 
2/0 PRINT "1=-SORTIR DU PROGRAMME" 
250 INPUT "VOTRE CHOIX "cc 
290 IF C=17 THEN PRINT D#"CATALOG"': GET A#: GET AS 
300 IK C= 1: THEN END 
310 ON C GOSURE =000,3000,49000,7010,5000,40000,40000,4000 


0,1/000,22000,29 


000 


939 GOTO 10 


(ea Loves 6 X 6 Al commeryléos gun Lu 
Le MENU rovoque <'afficlage aux €'écran d'OPTIONS. 


L'option 2, ( #fochar un obyet ) 


cs . 
a Lyre 5 &k atiocde aux ORDRES DOS. Rut 
Ode PRINT duux de DB, fui d'une ntm DOS 
Ana WE non Comme. Un sie d'ÜUmfresion. Mais 
onu une Wallon du DISC OPERATING SYSTEM. 


ER e au Abe4: Proianmme 5999 


. 


St 


L'on 1F et mlènue La Ligne 299 provoqua 


£ affichage om CATALOGUE. 


CRÉATION D'UNOBJET 


Ge Are promanme coutaut ur SOUS- MENU y Qi 


Adsents dus SOUS - OPTIONS. 
À LB be 2285 © uitiale La vrerallo L,œux 24€ 
L'indice de chaine | 


2000 REM 


CREER UN OBJET 


2005 


2100 
Z110 
2999 


HOME :L = © 

HOME :: PRINT "VOULEZ-VOUS::": PRINT 
PRINT '"i-CREER DES CHAINES" 

PRINT "£-FOINTILLER DES SEGMENTS" 
PRINT "3-CREER UN CERCLE" 

PRINT "4-CHAINER DES CERCLES" 

PRINT "S-CHAINER DES COUPLES" 

PRINT "S—-CREER UN ARC DE CERCLE": FRINT 
INPUT "VOTRE CHOIX "';cC 

ON C GOSURB 10000,11000,17000,13000,14000,1000 
RETURN 


CRÉATION DE CHAiNES 


_ c'est La SOUS OPTION 2: 





10000 REM 


CREATION LE CHAINES 


10040 L = L + 1 

19050 INPUT "NOMBRE DE FOINTS: ':N«(L) 
100860 J = 0 

10070 J = 


4 
10080 PRINT "POINT NO “;,J 
10090 INPUT "XT=";XT(L,J) 
10100 INPUT "YT=";,YT{L,J) 
10110 INPUT "ZT=";2ZT(L,J) 
10120 IF J = NL) THEN 10140 
10130 GOTO 10070 
10140 INPUT "UNE ERREURT:';RS% 


101850 IF LEFTS (R$,1) = "OO!" THEN 10050 
101850 INPUT "UNE AUTRE CHAINE? "';RS 
10170 IF LEFTS$ (R#,1) = "OO" THEN 10040 


10999 RETURN 













Une Ali aalüce pour décaler Le xt d'un REM (vx 
Lraqu' on emAre Le -proonamme clans L'A pp I, immédiat - 
Want aps Le REM, Liagper toux pois Tente T), pur 
Le Gyt , fun à Nauuroun eleurse TT, et em Liu proter dur 
& kaucnt où à imacut Los CARACTÈRES DE CoONTRÈLE JC 

quoi erhroiment our LISTING du SAUTS DE LIGNE, mais amd 
opte. ep femmt. Gt astuce permet une racer 


— Ga c'at L'ENTRÉE DE DONNÉES BESTIALE,. © commence, 
à La Love A1ÉPYE por imnobmantrn €’Endlies oo chaire L. 
Lui L'andinaliunr elomande Le Mmemue ete Roms ote La 
haine. 

— St ma um Cotrur prlygemal fermé 0 ma faut pas 
nemnine ele Aommatt ox pabjaens jeux sure UMTS. 


On pe alo € dance des XT,ŸT, ZT duc er. Ca qui 

Aa pae que on aura fait LR Logal pui le. 
Connatat à Cote Conpleteurent Len pains où L oËyet 
Jin tre ÉPURE. 
Le La 19125 pormel une SORTIE DE LA BOUCLE DE SAÏSIE 
St om à Hat tue exaun [cela ane ouvrent |, Le quegti on . 
VENUE A1 D À kr Janet ole AR CANMRRR EN a eeginan ce 
Lacan ota ée de chap. 

De peut, en nealont dans C2 At Hiomnamme 1YÉGE, 
Cut | 
SR mme den pas entr poux Le Mmanaut d'autre chaîne 
Le RETURN ranvenx aux mmrane, où HAUTE au dgue menu 
CREATION D'OBSET , Éraquel rinvenra À An CUX Aix man - 
Fan désue cotemur fe née d'objet, om anna 
Area À'eplinn : 
Œ_ COMPLETER UN OBJET 


QUE; Cros La. Mranlre La Lame 218 ere à Le ame 2812. 
Co. run programme 2919... 2499 afuunte La Ligne 2855 
c'ert à one La namine à Géo de L'une ce chaine L. 
Li, ete. 
On Arena ele mue n'affiche La Frua- Maux : 

VOU LE Z - VODS : 


ÎrCREER DES CHAINES 

2—POINTILLER DES SEGMENTS 

B-CREER UN CERCLE 

4 _CHAINER DES CERCLES 

S CHAINER DES COUPLES 

G-CRÉER UN ARC DE CERCLE 
VOTRE CHoix 7 


bre 











Cet cunrage Aux lx PERSPECTIVE umdique 
que Leiqu on à ume VISIiON RAPPROCHÉE 

À'umn et naitiqne., ceux Lei 
me. COURGURE APPARENTE . 


| - Part 
C— 


a Tait porcouns en cosrlamndes Aphériques À, 8,8 





Soon veut nogirents, um cul en wir napmocthde, en 4e 
Bain an tt des Uma A neo RÉ Fonumots, on Hero. Luns- exneun - 





CBAAL. PRNYgYLC , 
- Poux ét celle enour 0 Haut ai fers et POINTILLER 
Qo4 open ta is Jro ke da L'ièQ. Pau ce ae (aus - Ho - 
aponmnne MB) sx indiquua Le4 ndemmées du detut du 
Heoarent (3,520), celles de Aa ru CXE YF, ,2zf). Le_ _ 
Ansopanne Ronsfomua als antonralr quanneautT ee Ro Â DF 


F 
£. oh Z S 
vd | A 
A A 


ce 


11000 REM 


POINTILLER UN SEGMENT 


11010 1L=1L1L+1:NtL) = 
11020 PRINT "DE BUT DU SEGMENT * 
11030 INPUT ‘'X=''-XD 

11040 INPUT "'Y=", VD 

11050 INPFLIT Z7=":vD 

11080 PRINT "FIN DU  SEGMENT" 
11070 INPUT 'X=".XEF 

11050 INPUT "Y=" VE 

090 INPUT "2e": 


O0 FOR W= 1 TOS 
XTEL,W) = XD + (XF — XD) # (WW — 4) / 4 
VTéL:wW) = VD + (YF — YD) # (KW — 13 / 4 


LD + {ZF — ZLD) # (LV — 1) / 4 


CRÉATION D'UN CERCLE 


C'est la SOUS - OPTION 2. 


Le cencle Ana Dansnmé en OCTOGONE . Dans Le casa Le 
Jus aérûotk on Le definir far Leo cosridanmnées le on 
cendre (KE, YC,ZC), on naggem R et par L'agimut ete 


mE ob L'AXE, ME 
ET 





XT 


24 


12000 


RE M 


CREATION D'UN CERCLE 


12010 
12015 
12020 
1:030 
12040 
12050 
12040 
12085 
120664 
12070 
12#0:0 
12025 
12090 
1100 
12110 
12120 
= 130 
1213: 
12133 
12134 
12140 
17150 
12160 
z17/70 
121=0 
1:190 
12200 
12210 


1222 


2230 


a À en 
= a 


12233 
12234 
12240 
12250 
12260 
12270 


2250 


17999 


K y à CVS 


eZ 1853a ext L'éguiralonrt, en haciardg ,el'un aura fe nd 
C'el à de HE XT _ o,38539. 
À &Ù 





HOME 

PRINT "CENTRE DU CERCLE:'"': PRINT 
PRINT : INPUT "'XC=";:xC 

INPUT "YC='',; CC 

INPUT '"'2C=',2C 

PRINT : INPUT "AZIMUT AXE ‘",;, AXx 

AX = AX # 3.141686 / 1:=0 
PRINT : INPUT "ANGLE LE SITE AXE:'",SI 
SI = SI # 3.1416 / 1:00 

PRINT : INPUT ‘RAYON ‘'';R 

CA = COS (AK): SA = SIN (A X) 

CS = COS (SI):SS = SIN {S1l) 


:W = (J — 1) # .72S / 2 
= ee R +# COS (W):2ZO = FR # SIN (WW) 
+ 


+ CS + XO + SS , 
XTL:,J) = X1 # CA -— V1 # SA + XC Late 


Xi # SA + Y14 # CA + YC 0 
ZT(L,J) = Zi + 2C A2i mutale 


IF J= 9 THEN 121970 


L= tt +i 

NL) = 9 

J = © 

J=J+1i:W=(J—-1)#.725S / 2 

XO = O0:YO= —R + COS (W):2ZO = — FR # SIN (WW) 
X1= —- 20 #4 SS + XO #4 CS 

Wi= YO 


IF J= F7 THEN 12999 
GOTO 12270 
RETURN 


Ag, TÉ,2S $ 


fan y amirolés de T= à J = 9. 





Vote Le ferilemnannmaut de can 
Nu foin dans lb aime d'Axe 


EN pos emmuts Une Aa. uramt 0Z d'un ame Ax 


$ ie) 


XD — XY MAX) — Ys Su (AX) 
V6 —> Xp SR CAX) + Yg Su (AX) 
LÉ —> Z 


XE MAX) YEN => dam +XC 
XE Su CAX)+ YS GoUAX) OC +4 € 
ER 


+ DLHaounx +ZC 


CSC S ca Ramoteumalias que Raduiaaut Lea Éxames -1213%, 


ALAYÉ ,ALAS DS A12146S. 


On danmen co bite ie dune Dre ce ce pu 


Ne hanme 1288 : dus contÂct . 


OBJETS 
DE REVOLUTION 











Te ua peut - bo ten, | 
mois je dain faire quelguechuse | 


CAC ATTUA outre4 , Ca Supériouns , 
me POUVEZ PAS FAIRE 





Voter une AeuA - Aro amme qui format ole han des octo y ones 
Coaxiaux , # de Hrairer Lea Hommels Covea-pren clan Loa Una 
OŒUAX cures . L'axe clos otogmas tant praralle à oXT. 


13000 


RE M 


CHAINAGE DE CERCLES 


13010 
13012 
13013 
13014 
13020 
13030 
13040 
1303530 
13060 
13070 
1300 
13090 
13100 
13110 
13120 
13130 
13140 
13150 
13160 
131709 
13150 
13170 
13:00 
13210 
139799 


HOME : PRINT "CERCLES COAXIALUX / / OX" 


PRINT "AXE DES CERCLES": PRINT 
INPUT "YC=",YC 


INPUT "'2C="',2C 


PRINT : 


K = © 

K=K + 1: PRINT : PRINT "CERCLE NO "';K 
L=L<+1:Ntt) = 9 

INPUT "'"ABCISSE ";,xcC 
INPUT "RAYON '"';:R 
FOR J= ii TO S 

W= J # .7:35 

XTIL,J) = XC 

YVTL,DD = YCE —-R+# COS (W:ZTL,JI) = ZC+R +# SIN (WW) 
NE XT J 

INPUT "UN AUTRE ”'';:R# 
IF R$ = "OUI" THEN 13030 
FOR I= ii TO = 
L=L+1i:-N(L) = K 
FOR J= 1 TO K 

XT(L,J) = XTL —-K—-1I+ J,1) 
VYVTilL:J) = YTL — K— 1 + J,1) 
ZT, J)z= ZTL — K—1I + J,1) 
NE XT J 

NE XT I 

RETURN 


Ne 


En 13949 13814 où définit la ttau de L'ane ch L'oet de 
néon, farallle à l'axe OXT , Aux € plan Yr0 ZT. 


Ÿr 22 


26 


K et L'indice dx conce médium. L'ivanémentatrmn eat 
elfe liée a 4e Lime 1363. (e Meuveau cercle ent une 
mal chaine d'où mnimutation de L'(mdia de chaire) 
Hama La Line 13545. 
Em 1395p et 13268 0 doflut L'akoise Xc et & rage R 
Ve La Liqre 13975 à a que 13119 on ‘erée L vence 
AovA La fre d'une house os gonale 

Quand Vars «ea coxcher , ea célogenes aout 6er , où va 
Len" hraimer 

Ge début ar Lu FOR I=1T0 & 

Ruya en effit Rauit aommalx à Lier, de prochetn proche 
un K cercle. 
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MR PRUNORE Lea center Cut Aaque mag hne , chaque. 
nets (dhimie jancliteiue, cmatiutin navale | déuorcte 
a faune L'acquriton mécalemeut adapte. le avud 
pocpramme U-afra et un 2x enryte Re. 0 cle Apécialisce, 
allo à ure vartantr ca PANGRAPHE nommée NAVIGRAPHE. 

(za Coque eka PARA Ar condliluies le COUPLES ef ele. 
BORLTES 





COUPLE 
QUILLE 


La QUILLE mena une Aude haine Hate. 

L'eanren Rte COUPLES - BORDÉS Sugaqere von ehañinace 
anakoqe où écédont. 

Le PLAN DE FORME L'un maute mt Lancé AAA Le. 
devine. d'un wtain manlre de coupées - 


VU .… 


On noprédentina , fon Un , 4 couples à l'aide de Con Lota4 


14000 REM 


CHAINER COUPLES 


14010 PRINT "COUPLES AXES SUR ©x' 
LAFOEO KR = Qi = 0 
LAODSO0 ER = RE Lil = LL Æ LMI es 


14050 PRINT "'COGLUIPLE NUMERO ":Kk 
LAGRE, PRINT POCGNNEZ-S PTS ur 
ISO FOR JE 1TOE 

14090 PRINT "POINT NUMERO "';J 


1Ct N | 14100 INPUT ‘“X=";XTCL, 4) 
SAMSIE DES POINTS CONSTITUANT 14105 INPUT "V2 Vel 
Le: CO L LATLO INPUT MZ, 2 TEE; 
€ JPLET 14120 NEXT J 
14130 INPUT "UNE ERREUR: "RS 
14140 1F R$ = "OUI" THEN 14050 
14230 INPUT "UN AUTRE COUPLET",RS 


14240 1F KR = "OUI" THEN 14030 
14#60 FOR I=1TOS 


. | ; 14270 LL = L + 1eNCLo = 

FABRICATION DES BORDEES 14580 FOR Ji Tor 
14590 XTCL,U = XTCT: 10 
1430060 NT iil) = YOTEZT,I) 


HAITI ZT QUE 
14320 NEXT J: NEXT I 
14331 FOR I=1TORK: FOR J=1TOS 
19332 PRINT ad MT Ua eus 
14833 NEXT J: NEXT I 
14534 GET As 
._ 14846 GOSUB 3000 
a. 143850 FORI=1TOR+S 
FARRICATION DE L'ORJET S'YMHETRIQUE 14360 FOR J = 1 TO N(I) 
14370 YTU; Jr — YU, 
PAR RAPPORT AU PLAN XrOZ-r 


14350 NEXT J: NEXT I 
14400 GOSLE 3000 
14999 RETURN 


On rt bat A'atnd 

dique Le nevwlre NB 

Ai Pont coulent Lo 
Couyle N2K DEMI-COUPLE. 


De A4 PER à 14 198 ox hais Le NB Hommes ob ete Éoe. 
bise qui m' ext Ras M ceaaeunement Lane . 
De 14168 à 14829 où “eaime" ca ont coup Les 
en Labiaquant Lis NB BORDES. 
Un GoS0B 3ggo (von pûus Lu) 
paume ol STOCLER ct obset- 
qui code uvre DEMI- COQUE 
Tibed où an. 
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De ARR où 1438 0% mn Cie La clenni que. Symrelug ue. 
Li Du re DORA. pa XrOZ7r [en Lara ect VrCes) tu TL) 
- CEA on atocle Le mouxed Cat. 


Le po sname. PANGRAPYE 
MORCEAU PAR MORCEAU. 
NÉ élémer Cat 2 fait Wiqué ota ae conter LM MAUAQ 
on lower ts Gb, que = PONT 
QUILLE 
COQUE BABORD AVANT 
COQUE BABORD ARRIERE 


COQUE TRIBORD AVANT 
COQUE TRIBORD ARRIERE 





sn A 


Ver 
CO QU 
E BABORD ARRIÈR 
E 


CO 
QUE BSARBORD AVAN 
— 





Se on 
pme 
nn | Na 
lerT aue Late 
Aura mali cote A 
Lite), 
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LL pat dave prose, en partout d'u Alan rignante - 
Arte Un mine Gr adlun alQun  : 





STOCKER 
UN OBJET 


Haqus bat , ou lomout d'un Get, ex un ONE 
Baromd 4'oparatiun de SAÏSIE ot acfravée , Ge udique 

da STOCKER CET OBJET dun me Linkoffr. hnaersmaut. 
Le ra p'uanamme HE reaflyene Le Tramafert en ha GA DU. 
cutole de en felu -obut, Noua dame, cafaumimet au 
DOS 4 APPLE TT, que ut srndre PRINT uit ou canaelène 
Dé = CHRF(A) ( défunr à La Liane 3) Auna intiprilé mar 
Case Un die Lame | Mais Came un ORDRE DOS 
Dans Le are quoonaut Bof, -apin, on Comic. far 
stocker Le menwdne L ete efaines, pus Le Biefuox NCL) 
denront €e membre de Ron dan laque haure 
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Erix ne FAATERS CU alleuge An fichu XF CE 2). 
NEIL ETIET 


3000 REM 


STOCKER UN OBJET 


3010 
3020 
3030 
3040 
3050 
3040 
3070 
3050 
3090 
3100 
3110 
31:0 
3130 
3999 
4000 


CHARGER 


CRE 


INPUT "NOM DE L'OBJET'';O# 


D$F = CHRS (13) + CHR (4) 


PRINT Df'OPFEN' ,O©sæ 
PRINT D#'WRITE’'',Os# 
PRINT L 

FOR I=1TOL 
PRINT Nil} 

NE XT I 

FOR 1 = 1 TO EL 
FOR J = 1 TO NI) 


PRINT XT(I,J): FRINT YT{l,Ji: FRINT ZT{I,J) 


NEXT J: NEXT I 
PRINT D$'CLOSE",OS# 
RETURN 

RE M 





CHARGEMENT OBJET 


4010 
4020 
4030 
4040 
40350 
40480 
4070 
400 
4090 
4100 
4110 
4120 
4130 
4999 


INPUT "NOM DE L'OBJET "Oo 


DE = CHRS (13) + CHRS#& (4) 


PRINT DF'OFEN',OŒ# 
PRINT LD$'"'READ'";,0# 
INPUT EL 

FOR Il=1 TOOL 
INPUT NI) 

NE XT I 

FOR I=1TOL 

FOR J= i TO NI) 


INPUT XT{I,J): INPUT YT(I,J5: INFUT ZL'TET,4T) 


NE XT J: NE XT I 
PRINT D#'CLOSE'',O$# 
RETURN 





Las 


L MA ROC UN OBJET ‘ 


Voyant comment 


MODIF ER UN OBJET 


9000 REM 


MODIFIER UN OBJET 


5010 HOME 

2020 GOSUB 30000 

5030 PRINT : PRINT "OBJET DE ‘';L;' CHAINES": PRINT 
5040 INPUT "DONNEZ L'INDICE DE CHAINE ";l 

5050 INPUT "DONNEZ INDICE POINT SUR LA CHAINE ";,J 
5060 PRINT 


5070 INPUT "XT(I,J)=";XT(I,J): PRINT 
5020 INPUT "YTéI,J="; YT(I,J)- FRINT 
5090 INPUT "ZT{l,;,J)>=";2ZT( i,J): PRINT 
3100 INPUT "UN AUTRE POINT ";:r#% 
5110 IF LERTS (R#$,1) = “©O" THEN 5040 


5120 GOSURB 3070 
Szu END 
5999 RETURN 


4b 





CRÉER UN ARC 
DE CERCLE 


Due L'un ancatxe conf. Ca ra Ti PET 


» O 
——..… 


GX ans de cola (XC,YC,2c) 4 
2 6 me milna à de \ 
ANA y paralllln à 7 


NN Nb Le. nes Vi onoueligue. 





HaRke : 
es Vaia Tri AACA do cle 
G; ont naxen 0=0 ef Ee. 
TR 
AeuA oli Francs 

(2 Ke” O2 

AU ÿ=0 AN 7 X+ 

O> 1 


qui dlnmine Lai 
=o Labs do Opel Po 





LE 


1000 


RE M 


CREATION ARC DE CERCLE 


1010 HOME :RX = O:hHY = O:F2Z = © 
10145 VTAEZ 15: HTAHE = 
102O HOME 
16030 PRINT 'COORDONNEERES CENTRE DU CERCLE": FRINT 
1040 INPUT "XC=",XC 
10850 INPUT "YC="; Ye 
1080 INPUT "ZC=",20: PRINT 
1070 PFRINT "CERCLE D'AXE PARALLELE A:!": PRINT 
10:00 PRINT "i-OX £2-OY 3-07": PRINT 
1096 INPUT "VOTRE CHOIX "Ce PRINT 
1095 INPUT "RAYON LU CERCLE ";:R 
1100 IF C = 1 THEN FX = 1 
1110 IF ÇC= 2 THEN FY = 1: 
1120 IF CL = 3 THEN EZ = 1 
1130 PRINT "SENS DE PARCOURS TRIGO HABITUEL’": PRINT 
14140 INPUT "'OONNEZ THETA 1,DECRES:";TI1 
4150 INPUT "DONNEZ TFHETA 2 ,DECGRES:";TE: PRINT 
1140 Ti = T1 + 3.149418 ;/ 1:10: REM CONVERSION LEGRES/RA 
DI£ANS 
1170 TE = TE +# 3.146 / 120: REM CONVERSION DEGRES/RA 
DIANS 
1120 DT = (TE — T1) / 5 
1190 L=1Lz+1-.REM NOUVELLE CHAINE 
4:00 NL) = S: REM 9 FOINTS SUR LA CHAINE 
1210 FORK = 0 TO: REM CREATION ARC DE CERCLE 
leo CQT'= COS (TL + DT EF KRIEST = SIN (TL EN E +7) 
1230 FEM LIGNES TRIGO DE THETA 
L£aS «FF = K° + 4 
1240 XT(L,HD = XC+EY +FDLEKkCT+rEKR 
250 YTEL,T = YC+FX & CT +ERZ # STI E+sR 
124640 ZT{L, Jo = 2C+ (EX + EVE ST+R 
1:70 NEXT K 
14275 FOR J= 1 T0 9 
1220 XTCEL,J) = ÇCINT (1000 # XT(L,J)59 / 1000 
1290 YTCE,J) = {INT (1000 # YT(L,J))97 / 1000 
14300 ZTiL,JIi = INT (1000 #&# ZTCL,JI))) / 1000 
1400 PRINT XT(L;:J),YT{(L:,/J2:2ZT(L;:1J) 
1410 NEXT J 
1420 GET A#% 
1599 RETURN 


Em 41097 411, ,4109 où out Lo Rorail ave du FLAGS 
@ pas nl ure alneacence ex eadive À fie gammes : 


(lance do coule ef ag nel 
we dons à Rat tea ef 

down . DTHETA pete 
Détente Le LE Land 
k ad . 


ns ad 


Æ 


la mx AVTh, 1126, 123$ pere Fat chaos Le, pont RAM er 


love, Les Gin aa de figure (CF 


st, FF, + 2z=#) 
p, FY=zT, Fz-#) 
B,EY= 4, Fz=4) 


HG 


(FX 


(FX 


En fai de na frogramme à affile ee coretmuce, cola lee. 
pre Hung Us icone (rm urgua, la. Ares Enr cl Lo pied, 
hour A muntalians ef He, axe ane | 

EX ge rulamer ou un GET A 


Revenons ou MENU où £a page 6%. Où y aus tre game 
G_ MANIPULER UN OBE TT 


CAN à or Cu Ms de T7 pp 


MANIPULER UN OBJET 


17010 HOME 

17020 PRINT "VOULEZ-VOUS :'"': FRINT 

17030 PRINT "i-OPERER UNE TRANSLATION DE L'OBJET: 
FRINT 

17040 PRINT "£-OFERER UNE ROTATION’: PRINT 

17/7050 PRINT "3-CREER LE SYMETRIQUE % UN PLAN': PRIN 
T 

17/0860 FRINT "4-FUSIONNER DEUX OBJETS": PRINT 

17070 PRINT "S-HOMOTHETIE’": PRINT 

1700 FRINT ‘“é—-AFFINITE!: PRINT 

17090 PRINT "7-HOMOTOFIE": PRINT 

17100 INPUT "VOTRE CHOIX ‘CC 

17110 ON C GOSUB 17000,20000,1=2000,71000,27000,73000,740 
eLe, 

17999 RETURN 


DR D a Ua uen un coffre male. 
d'rperali ina lometainsa y por quas Pour one eo Manpuk - 
Roa d'obgh, L fautrosrén von te À apr t a cRoucimmi, 
cu d'ontüan Cl former. 
Pragunans we pat qui ef im Angle quactull ge : 

ui 


y 
/ X7 


4 


ie we cœur program 
pont à oi {a quille à -Cme, 


que nou opérer A GRILLE Z 





1DiMmxTOr,4),Y7G6,1,2TG%,4),NG%) 
176- CHRÉ(4) 

Woun w'aller patacn ccttmunt cote que, posent 
as Le part (SÉ, “), mous mas es in Lécnamumt La 
How Jan que & pot (XT = D;TT=B;TT= #4) rot rune 
Jen YT= BA; NT= PA) TER LE vos onde. ss 
Het. DUR Fa de paer à Rates | um ofjef , eux Lan lou fr 
que L'un de ea poli re ant confondu avec € potat A° 
bgernrokes . D'ou 
1868 XT(1,1=2$1 :YT(H1j=#1:2=S 
PS LadiN(Lise [Haut fous un G «aire ) 
3g FoR)J=2TOI 
46 M25\=2p:YTG,1)=27-1:2T(13)-$ 


Sp NEXT J TR 
7 
\ 2 oi S 
” T= À. 1 
a CU - Cnde , : Poux na 
Gt ra. ele Ve 2 3 Pi 
ŸT = 1 . 
re i 
| Ô AA ŸX+ S LL se ÀX+ 
YT=S 


s10 





<< 


s © © + gs À ce 


Gé FOR LT os 
F6 FORT =1To) 
7e XT(X)J) = feel 
48 NT (L,3)= T-1 
dé ZT, J) = $ 

I} NEXTUJ: NEXT ZI 


a 0 arms meme anne ont) 





XT 


AL + ré 





O 


rétties HAE arrai di quars c- cles 


128 XT (15,1) = #.7 : YTÜB,1 = #4 2T(1É,1)= 8 
136% tee. LES 
1#$ FORT-LTO2 
ASE XTCL Te Tert ENT (aisé :2r 0272 
169 NEXT TI 
; ad 
Cree : 


Qu > — — 
12 tr esp PAT 


Enr : 
175 FôR T=-117T01Y :N(1)=3 
189 FoR j:1763 
J48 XT(1,5)= 2-1: NT(1,3/21-19 :2T(25)<2 
29% NEXT Jd': NEXTI 
à OXT ef éefadyundes de YT= 7 à NT=S 
L'evren tte otre Le moulage a - pr : 
57 


Fe 





TR ro à 4terkee 
cf are Île , qua 
, eus appellent 
GRILLE (4-4 -f) 
>XT fur. on que 
21H PRINT É "OPEN GRILLE 1(4-4-%) 
229 PRINT PDÉ"WRITE GRILLE sr us 
23 INT l& (meurs de Rares 
nouer. Trois {namde du pou pr <Âowe) 
26e  FRINTS9 
26% NEXT ZI 


DATOE Je Pros 
249g PRINT XT(T,S) 
eg PRNT VTT. 3) 
318 PRINT ZT(LI,T) 
32 NEXTIJ: NEXT £ 
32% PRINT D (eLoCE ERille 1(4-4-6) 
34 G6E ND 
À & EP er eu Man ele ce. fichier ŒRILLE À Menus —PARANTI A 
An PRÉCAUTION ete pare Fiporen den étolmase tu 


Corte adovtirique 2e et ofpt (font #,%e) 
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MANIPULATION 





D'OBJET., 


RANSLATION 





170060 REM 


TRANSLATION OBJET 





19010 HOME 
19020 GOSUB 30000 
17940 PRINT "DONNEZ VECTEUR TRANS 
L= LE 

17050 INPUT "DX=";DXx Re 
19060 INPUT "DY=":Dy 
19070 INPUT "Dz=":D7Z 
19050 FOR I=1 TO L 
19090 FOR J=1 TO N«) 
17100 XT{,J) = XT(UI,J) + Dx 
19110 YT(I,J) = YT(I,J) + DV 
19120 ZT(AI,J) = ZT(I,J) + DZ 
19130 NEXT J: NEXT I 
19140 PRINT : PRINT'NOM OBJET TEA Lu 
Ne ANSLATE:'": PRINT 
191650 GOSUE 3030 
19999 RETURN 

4 r # 
Pa4s-ona À 
PO000 REM 
ROTATION OBJET 
O0i0 HOME 
20020 GOSUB 30000 
ZO0ES PRINT 
20030 PRINT "ROTATION AXE PARALLELE A:': PRINT 
20040 PRINT “"1-L'AXE OX : ROULIS'": PRINT 
20050 PRINT "Z-L'AXE OV : TANGAGE": PRINT 
20060 PRINT "3-L'AXE OZ: LACET": PRINT 
20070 INPUT "VOTRE CHOIX ":C 
20050 ON C GOSUB 25000,76000,77000 
20999 RETURN 


pe 


XT 


+ 


1. 


aps 
_ LACET 


2/00 
T) ROULIS 


Par conne on Aluna un opel qua tft le partent 
Ada L'axe OXT (ancm, vrdue , ele... 

Dan alu ume notetim euxlgur d'un axe ukegnque eit- 
déconyaolle ou une 4 de ntolius autèux ote ca ax24 


pr cpans (qui Auffaeut arapmat aux Ceioins ). 
ROTATION AUTOUR 


D'UN AXE PARALLÈLE 
À L'AXE OX. 







Yr | 
TANGAGE 


a 


| (6, YA,74) 





“2000 REM 
ROTATION AXE // OX 


25010 HOME 
25020 PRINT'TRACE AXE DANS FLAN YVOZ‘': PRINT 

25030 INPUT "YA="; YA: PRINT : INPUT "“ZA=":ZA: PRINT 
25040 INPUT "ANGLE ,DEGRES:":AR 

25050 REM AR ANGLE DE ROULIS 

“5060 LKR = ARR # 3,141 / 1:20 

25070 CR = COS (AR):SR = SIN (AR) 

25050 FOR I=1 TOOL: FOR J = 1 TO N«l) —_ 
25090 X1 = XT(I,J) 

25100 V1 = YT(I,J)- VA Sr ne 0 
25110 Zi = ZT(I,J) —- ZA: REM 

25170 XE = X1 É 

25130 V? = V1 # CR — Zi + SR + Ref mn 

25140 Z© = V1 # SR + Zi + CR: REM 

25150 XT(I,J) = XZ ne cle 
25160 YT(I,J)= VE + YA ntrux Cars TA 

25170 ZT{I,J) = ZE + ZA- REM 


2 
: \ h 
25150 NEXT J: NEXT I Coor est als (lu e 


229799 RETURN 
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ROTATION AUTOUR D'UN AYE 


PARALLE LE À ON. 


26000 


ROTATION AXE // OY 


=6010 
=602:0 
26030 
26040 
264050 
26070 
26075 
260 


DRASS 
Q. 0. 0, 
at 
He Co 
O0O0Q OO © 


Jo Up 


© 


0 Q D. Q. Q [EN 
© 


bhhbhphh 


SRSRÉRSRSRS 


ÿ 
© 


26200 
26999 


ac (* A,S,Z74) 


RE M 





HOME 

PRINT ‘TRACE AXE DANS PLAN XOZ': PRINT 

INPUT "XA=";XA: PRINT : INPUT "ZAz=";:ZA: PRINT 

INPUT "ANGLE LEGRES ":A1 

Ai = Ali # 3.1416 / 180 

REM A1 ANGLE DE TANGAGE 

CT = COS (AA)I:ST = SIN (A1) 

FOR 1= 1 TO L: FOR J = 1 TO N(I>: RE M 

XL = NT, JA 7 ÀQ Comoloutw tre, 
VA = VTT) | Hranraguren À 

Zi = ZT(,J) - ZA: REM 

XE = 24 # ST + xX4 # CT dt À 0 

Y? = vi î l 

ZE = Zi # CT — X1 # ST: RE M 

XT(I,J) = X2 + XA ne 

YT(I,J) = vVE Ru A 41 ze. 
ZT{L,J) = Z? + ZA: REM 

NEXT J: NEXTI Crretert2e- XL YT, ZT 


RETURN 


ROTATION AUTOUR D'UN AXE // À OZ. 


“ /000 


RE M 


ROTATION AXE // OZ 


27010 
Z2/02°0 
27030 
= 7040 
270350 
2 /060 
27070 
700 


270970 
#7100 
= 110 


24120 
27130 
27140 


27150 
E7180 
27170 


2 41-0 
27999 


HOME 
PRINT "TRACE AXE DANS FLAN XOY': PRINT 
INPUT "XA=";XA: PRINT : INPUT "YA="; YA: PRINT 


| 











INPUT "ANGLE; DEGRES:"'; AL z 
AL = AL # 3.151646 / 150 
REM AL ANGLE DE LACET 
CL = COS (AL):SL = SIN (AL) 
FOR I=1TOL: FOR J=1 TO NI): REM | 
X1 = XTI,J) — XA Hour genrent de | 
Yi = YTU,J) - YA 2 
Zi = ZT(I:J): REM Croate es : 
XF = XA + CL -— Yi # SL ù | / 
VE = X14 # SL + 1 # CL Ro (120 DT 
25 = Zi: REM L 
Lt 
XT(I,J) = XE + XA Rate ŒARLA PAR. 
VTT, = YTZ + YA OR 
ZT(I,J) = 25: REM KT, 7 ST t X 
acte 


NE XT J: NEXT I 
RETURN 


(XA,VA, g) 


“3 





SYMÉTRIE PAR 
RAPPORT A UN PLAN 


Noua a lu Mes se le Di Caa asc NS 








Ra Ava use cdi NRA 
UE Cora de ar Aire : 
Are _ 


1:000 REM 


SYMETVTRIGUE % PLAN 


4121001 HOME 
121005 FX = O:FY = O:F2Z = © 
1:006 GOSUE 360000 
11007 PRINT : PRINT "SYMETRIGUE FAR RAPFORT AU PLAN 
U: PRINT : FRINT ‘"1i-— 

2=0 FLAN XOY'': PRINT : PRINT ‘"£- Y=0 PLAN XOZ2'": PRINT 
: PRINT "‘3— XxX= 

O PLAN YVOZ'': FRINT : INPUT "VOTRE CHOIX ";©Q 
LEOO0OË% IF CC = 1 THEN FZ = 1 
11007 1F CC Z THEN FY = 1 


124010 IF CC = 3 THEN FX L 

1:011 FOR I= ii TOOL: FOR J = 1 TO Ni) 

12020 IF FX = 1 THEN XTEI,J) = — XT(I;,1J) 

12027 IF FY = 1 THEN YTGIl,gJ) = — YTiI,J) 
12024 1IF FZ = 1 THEN 2T0I;:9J) = — ZT(I;,J: 

1:030 NEXT J: NE XT I 

44035 FRINT 

11040 INPUT "NOM NOUVEL OBJET ";©G$ 
14121050 GOSUE 3030 

112409 IF C= EE THEN HY = ii 

12999 RETURN 


Tout acer ef ae mnt 
6 


FUSIONNER OBJETS 


c'et wre cpéatre Tin Mmyple à pour: Simple jou Aux Lea 
umdicei. Maia adutum | los fichians ets ot PANGRAPHE 
rot Lnmits à 30 CHAINES. Souut coux og - le prommax 
a cité de L, chan a & cmt ce L, chanes. 


ho CRC Pl. don …. 


21000 REM 


FUISION OBJETS 


21010 HOME 

21020 PFRINT "FIN DE FUISION,TAPFEZ LE MOT FIN": FRINT 

21030 PRINT "PREMIER OBJET A4 FUSIONNER": PRINT 

21035 GOSUEB 30000 

21040 INPUT "NOM OBJET À FUSIONNER:";:QS# 
_—<104: IF ©@$ = "FIN" THEN =£1i500 
21050 PRINT L#&'"OPEN",Q# 
21060 PRINT D$'RE AD";,©sS 
210862 REM 
























OPERATION DE FUSION 


G 
© 
[8] 


5 REM LI=NOMBRE DE CHAINES DU) NOUIVEL OBJET 
O0 INFUT LE 
FOR I=1L+1TOL+LE 
INPUT Ni) 
109 NEXT I 
110 FOR I= LL + 1 TO L + LL 
120 FOR J = 1 TO NI) 
130 INPUT XT{I,J): INPUT YT{I,J): INPUT ZT (l;,1J) 
i 
1 
1 


OO 
DURE 
O © 














40 NEXT J: NE XT I 

90 PRINT D#"CLOSE',0# 
9 EL = EE eLL 
150 GOTO 21040 
5300 REM PRIN DE FUSION 
HOME 
214520 PRINT : INPUT "NOM DE L'OBJET GLOBAL ",0$ 
339 GOSURB 3030 
999 RETURN 


Ou a ume Boucle de daue . La 4e ta Enucl efaut— 
nrolitée Lruaqu'on Gutk à 'appale € kg FIN” 
L'talo de Puma cale à all chacler EL flex 
den ones coutibiont & mel out, ef à L'énseure au 
Rat de L'obef ja quereut eu remain 

Fr 


JMD HUB BEN NN 


hihi hhbhhhhhh 


(1 
ka 
[@ 


HOMOTHE TiE 


Va une. ana frumatenn géorique lamare Gui Va pomme 
de " a de “legofle un oËyex. 

RC ur d'abnA dilinin un CENTRE D'HOMOTHÉTIE C 
QUÈ ONNE AU. Coticlmmtes XC, VC, ZC. À Eat fomt M 
XT- XE = XI 
NT- YC = Y1 
2. 


CXTINT,2T) me pauna déocur un teclrur CN 


On 4H emma enpulr & COEFFICIENT D'HOMOTHETIE HO, 
Et , au veclèur CM on allons & vin 
_—_ OUR- UE 
CAE ŸYZ = Y1x HO 
ZT = Z2|4 HD 


M HO = À L'obqet et imchonge . Man, HO=- TL où 


Lee bme ox ane frs Spanrart- rit une afors sa eut . 


22000 REM 

HOMOTHETIE 

2010 HOME 

£22O:O0 GOSUREB 30000 

=e040 FRINT "'COCRDONNEES CENTRE HOMOTÉHETIE: PFRIN 
220SO0O INPUT "XC='"';,xcC 

22060 INPUT "YC=",wC 

2070 INPUT "ZC=";,20C 

22050 PRINT : INPUT "COEFFICIENT HOMOTHETIE ‘;,HO©: PR 
=-0790 FOR I=1TOL: FOR J= 1 TO N(I): REM 


100 X1 = XT{I,J) — XC 


22110 Yi = YT(I,J) — YC 
22120 21 = ZT(I,J) — ZC: REM 
ee130 XX = X14 + HO 

2213S YE = V1 # HO 

22140 ZE = 71 # HO: REM 
22145 XT{I,J) = XE + XC 
22150 YTAI,JIi = YE + YC 
221680 ZT(I,J) = ZE + ZC: REM 
22170 NEXT J: NEXT I 
2999 RETURN 


20 





AFFINITE 


On Fat nisage Lure anni gen op f à un péan, 
Qu ar nf à Une axe. Domi un ex eumtple eu oteun 
Arnrenrm qua XT, ŸT 


NT Pr gran Un Cmleux 
| um CÈRE, 
g choque Herr el cor leur 
nos creed QT UT 
XF 


Noua al sus nralli jen uve affinité far Exenÿ le. nelse L'axe OXT 
Appèlos AF & COEFFICIENT D'AFFINITÉ. 


Noa allo nant #a con NT ar AE + ŸT 2#F mu bleu lan a 
L CERF - AFFiN : 


4 ÀY 


la ÀF 74. 
0 


57 


are affnité par wat à un axe 


223000 REM 


AFFINITE 


“3010 


23015 FX = 


ecisnss 
23080 
E3070 
230=0 
“090 
23100 


HOME : 
G:FY = 0O:F7Z = © 
TOSUJE 30000 


PRINT "i- X=0 PLAN YOZ'"': PRINT 
PRINT "£E- Y=0 FLAN XOZ'"': PRINT 
PFRINT “3- Z2=0 PLAN XOY'': PRINT 


INPUT "VOTRE CHOIX ",c 
IF C= 1 THEN FX = 1 
LR me THEN F\ = 1 
IF C = 3 THEN F2 = 1 


PRENCT © EINPLIT "ECEr APFRINITE”"S Ar: FRINT 
FOR I=1 TOOL: FROR J= 1 TO N(I): REM 

IF FX = 1 THEN XT{I1,J? = AFF # XT(I,J) 

IF EFY = 1 THEN YT(I,J) = AFP # YT(I,J} 

IF FZ= 1 THEN 2ZT{I;gJ) = AFF # ZT(l;J): REM 


NE XT J: NE XT I 
RETURN 


une. Splure . En La cléfoumant Jar af , D geroit 





uvre Ürdée dam ue. auafac . Pan ex eme une qunfac plans 


LÉ SN 


e malin de depart prune te œÙe ERILLE , ce mnaeoux 


PR LE LA AR DE EE De es ea en ain en 
PNA NT ee ee ES EEE 
PORT PL TL EL E LE. À à 

PEU IE OS DE NE EEE SE 
PA ART A AR AO LS ES DR EE 

CTTALT I 










De prunait enr sage de Ce CONTE CErARR RCA , EM 
reel une HOHOTOPIE . On emvisagea de realite celle 
de four alien Aomn Diet dreclins au ir [oxT, OYT, 20) | 
Supporter que cl aille Aa plans Le han Z=d. Où va 
Rage une SUREPAISSEUR vaxalll tem L'erdiit. Cdt 
oéfouatron d'exencona Aelox OZT et ama maximale en ©. 
Pur 4e tmpatance. na, ot criant, ax un ef 4 mot. 
que L'un al élaqme ete l'axe OZT. Diana que. ce RUN TrALHIEUX. 
Conan da pur arte à une. SURFACE DE GAUSS : 
ZT 
” IN 
<FFRSS 
SRE 
ALL Esolement apps 
COURBE EN CLOCHE , 


61 


Snt £ la dulan Aux pomt à L'axe DZT 


PEN 


id une firmes d'amphtluole vaial le 


0 ; ‘ 


A(XT,Yz)= 4 exe (— P7A22€) 
te La Crue. EX À nenx L'amplkide maximale 
(alor axe  62T) 


Poux une mme vafoux ste À, MAUS UN NA  : 


Re rognamme a - fra cmecte tt defawmalee : 


=-49000 


RE M 


HOMOTOPIE 


24010 
2400 
24052 
T 

24054 
24060 
24070 
240%0 
24090 
24092 
24093 
24094 
24100 


241410 
=:4140 
}) # X1 
4 
“4150 


24160 
4170 
24120 


a er 
= a a 


24999 


FX= O:RY = C:F2Z = © 
GOSUE 30000 
PRINT : INPUT "AMPLITUDE DERORMATION ‘ 


INFUIT "LARGEUR DEFORMATION ‘';E5: FRINT 
PRINT "i-SELON OX": PRINT 

PRINT "E-SELON OY'': PRINT 

PRINT "3-SEiON O©OZ'': PRINT 

INPUT "VOTRE CHOIX ‘;C: FRINT 


A: FRIN 


IKC= 1 THEN FX = 1 

JF CC = £ THEN FY = ïi 

IFC= 3 THEN FZ = ï 

FOR I= 1 TOOL: FOR J = 1 TO N{l): REM 

X1 = XT(I,J):Y1 = YT(I,J):2Z1 = ZTÉE,J) 

Re = (FX + EYE 21 & 21 + (FX + F2) # Y1 # Y1 + iFEZ + FY 
# X 

H = A + (CEXPF € — (RE / € # BB + B)h))): REM 

XT (Es) XT(I»sJ) +FX # H 


VTT JD = YTAI;,D+FY+H 
ZT{I;:J) = ZT(I,J) +F2Z # H 
NE XT J: NE XT I 
RETURN 


4} 


On four ait | de mème, créer des hamga de defnmalions 
WMA } ohava L'espace. Pan exenmgk cles fanactons. ma airs 
une Ten el L'uxe OZT. TM Amal L'anypltz cle. 
mor imafe de celte Tori et R 4a ar aeur caraclaulique . 
TR augfreit de mat fes Lan crordlonn£es XTCZT) NT(T,3) 
en opomt une nRetalon lat L'ampllide nait en 
dderetssant, on fur et à mature eue €'en A élrepnerat 
de L'oxe OT, Fan exemple del un anale 


Te) =TM exp _(P}/2 82) 


AE. pe VXTIENTE 
Ce og ame n'a fre AL piel & imaginer: pe 


FICHIERS BLOCS 


Pour Lalique don ob, A a ffl A' utile Les 
outils préselu ic et de Huaonner Les lement 

de ylua de 300 Hapments” 

Que ane ? 
La cpl 40% datni à ele Wroïtis jar un aule nopiamue 
que YuA afplorms PANERAPHE DESSIN À qua na 
rue, Las Qui, quux que 300 4gment A° LA FOI. 





05 


En ant prinde ka Po pet PANGRAPHE DESSIN 
Aa fran ga oppelers BLOCS D'OBJE Tru 


FICHIERS BLOC 
ÉbS(r no Los Efron /& ds e ha . 





Dhamut Lt cles Pichon ct filon. 


“1000 HEM 


CREATION D'UN FICHIER BLOC 


1010 HOME 

020 INFEUT "NOMBRE D'OBJETS "Er 
1030 FOR I= 1 TOE 

“040 FRINT "OBJET NUMERO ‘,;I 
050 INPUT EL$(I}): PRINT 

OO NEXT I 


DH 


2076 INPUT "NOM LE CE BLOC "';BL#S: FRINT 
20=0 PRINT DS'"OPE N';BL#H 

LOSC PFRINT DF'"'WRITE'" ;,EL+ 

100 PRINT E 

1110 ROR 1=1TOE 

120 PRINT ELS&(I) 

2130 NEXT I 

5140 PRINT D#'CLOSE'" ;BL# 

799 RETURN 


EF L'oralrm imveuse : 


27000 REM 
LECTURE FICHIER ELOC 


29005 HOME : INPUT “NOM DU BLOC ‘";BL#: PRINT 
29010 DS = CHR (13) + CHRS (4) 

29020 PRINT D$'"'OPEN';:E1LS# 

29030 PRINT D$'"'READ'"';ELS 

297040 INPFUTE 

27050 FOR I= 1 TOE 

29060 INPUT ELÆ#(I) 

27065 NEXT I 

29070 PRINT DF"CLOSE'";BL# 

260040 FOR I=1 TOE: PRINT ELS#S{l): NEXT: FOR TT=1iTOE 
OO00: NEXT TT 

29999 RETURN 
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Nous our vu, pages 50,51, 52 Conwmumt engenchen 
uvre. oulle , qua. mans apple a ERILLE LL . En ul 
Les Ava CG ovs ” HRe rar hat à Um han, on 





DATES areles BLOC GRILLE (S/S/a) frrusque. AO 
de da pan el L'oique. Fiebèx qui gera 
Cats den quale Rémentz 

GRILLE 1 

GRILLE 2 

GRILLE 7 

GRILLE Z 


OK mxta que & bpout (,pD,%) 
N'&pataunt fras à Ci emgeun le 

CG qui pewdtta ax (PASSER AU 
TRAVES “ a ce Le ul En Fun 
axe OZ. 


La deire NW Lo Wap ll À 
ANEherga LE me Locplnots 
GS 


G froomamme Ma Jrumefr quésertèment que de. Chen) 
LauA un Apopanme de ad . 
Mais la Hokrm PANCRAPHE ORJET 24 

lie Anar Le QUE Mona N'AURA FRA ARE? — 
le. ace Aa La Wwômrrire. de C'Apple Ù , lon 
VA #FK. 

la Abtin Va couritn à baux clans PANER APHE 
OBJET quelque Dos phone Les aux IMAEES aux 
DESSIN, qu appeler outonalquemeut PAWE RAPHE 
DESSIN, eaalomet re feut Au Lx lo kell 


Les opus Laon à PANCGRAPHE DESSIN “ru tR Fernn . 
Unes. TK Guffaia que cor ls nnvraut À uvre 
aq - Wronaferk. 


Romarque : pau - que Csuaerges Pl bikes PT 
ane d'u fuogramme à €'auhe 7 ou, à 
cet d'u ue APR ame - machine 
VAE CHAIN. 
Arécerf nm La MASTER , Tous prune autre quen_ 
CHAÎN nu ambre oliokefls te Ray Q. (a FEU CR 
Woma ter Aero. pa : 


46010 FRINT LF'"BLOADOCHAIN,ASE=O" be 
40020 CALL SEO"PANGRAPHE DESSIN" 


30000 REM 


L'OBJET EST-IL EN MEMOIRE ®T 


30010 PRINT :INPUT "L'OBJET EST-IL EN MEMOIRE * ";R#: 
PRINT 
SOOEO IF LEFTS (R$,1) = "©" THEN 30999 


30030 INPUT "NOM DE L'OBJET: "'';,05$: PRINT 
30040 GOSUEB 40:0 
30999 RETURN 


OK Carpet imautimaut La quereuce dt FLAES Lan 
EX ax Couvmemce par RUN PANGRAPHE OBJET 472/84 
ge Le. bus à pouls XTNT ZT. Le lag FDA 
afga pari que ue À | 

Ou run. alpa urer aus PANGRAPHE  OBIE T. 
PANGRAPHE DESSIN 572/8ÿ œure en mures frermnetes 
Liquer. Le Frog FD at Afféont ae Ge, où entex 
une nefocure ets le Æigre DIH, que pan nd aus 
L ne LaN DEA ele hr | É Larterxa. 
Ps RTE de 
Dent AT ur Le re Amua pur pamure 

Avant Le uwébiuune PANERAPHE DESSIN ef o ul 
LE ut 4 tua elite, User La Hu Con 
Ou Hrecpamnre. PANGRAPHE ORIT T. 
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LD 


PANGR APHE OBJET 


IF FD 
EL = O: REM PANGRAPFHE OBJET 7/2/x4 
DIM XT(30,7),Y T(30,9),ZT(30,9),X(30,9),Y(30,9),N(30):FD 


L THEN 3 


1 


CHR (13) + CHRS (4) 


TEXT : HOME 
ETES 


0  FHEN 319 


PROGRAMME ME NU 


30 VTABRB 15: HTABRB 15 
40 PRINT "'VOULEZ-VOUS:" 
20 FORTE = 1 TO SOO: NEXT 
SC HOME 
F9, PRINT 
10 VTAER 3: HTAB £é: PRINT "'FANGRAPHE OBJET" 
F0 VTAR 1 
100 PRINT "i-CREER UN OBJET" 
110 PRINT "2-STOCKER UN OBJET" 
120 PRINT "3-CHARGER UN OBJET" 
130 PRINT "4-COMPLETER UN OBJET" 
140 PRINT ‘'S-MODIFIER UN OBJET" 
150 PRINT "é—-(REPRESENTER UN OBJET)" 
180 PRINT "7-{(STOCKER UNE IMAGE)!" 
170 PRINT "S#-(CHARGER UNE IMAGE)’ 
150 FRINT "9-MANIPULER UN OBJET" 
170 PRINT "1C-DEFINIR UN BLOC D'OBJETS" 
“00 PRINT "11-CONSULTER UN FICHIER BLOC" 
210 PRINT ‘12—": 
s0 PRINT ‘13-" 
230 PRINT "'1i4-" 
240 PRINT ‘1s—" 
250 PRINT "1i4s—" 
260 PRINT "'17-2AFFICHER LE CATALOGLIE" 
270 PRINT ‘"15-SORTIR DU PROGRAMME" 
250 INFUT "VOTRE CHOIX ";c 
290 IF C= 17 THEN PRINT D$"'CATALOG"': GET Ag: GET A# 
300 IF C= 1 THEN END 
310 ON CC GOSUE 2000:3000,4000,2010,5000,40000,40000,4000- 
O,17000,2#:000,29 
OO0 
TI, GET 10 
1000 REM 


CREATION ARC DE CERCLE 


1010 HOME :FX = O-FY = O-FZ = O 

1015 VTARB 15: HTAE = 

1020 HOME 

1030 FRINT "COORDONNEES CENTRE DU CERCLE": PRINT 
1040 INPUT ‘''XC="',;:xC 

LOSC. INPUIT "YCsrive 

1980 INPUT "ZC=";72C: PRINT 

1070 FRINT "CERCLE D'AXE FARALLELE A:": PRINT 

1920 PRINT '"'1-OX ?-OVY 3-O7Z': PRINT 

1090 INPUT "VOTRE CHOIX ‘;,C: PRINT 

1095 INPUT "RAYON DU CERCLE "3h 

41100 1F C= 1 THEN FX = ii 

1110 IF CC =? THEN FY = 1 

1120 IF CC = 3 THEN FZ = 1 

1130 PRINT "SENS DE PARCOURS TRIGO HABITUEL": PRIN'T- 
1140 INPUT "DONNEZ THETA 1,DEGRES:";,T14 

1150 INPUT "LDONNEZ THETA S,DEGRES:'"';TE: PRINT 

1180 Ti = T1 # 3.141416 / 140: REM CON VERSION DEGRES/RA 
DIANS 

11/0 T2 = TE # 3.141646 / 110: REM CONVERSION DEGRES/RA 
DIANS 

1150 DT = (TE — T1) / = 

1190L=L+1: REM NOUVELLE CHAINE 

12060 Ni) = S: REM 9 POINTS SUR LA CHAINE 

1210 FOR K=0O0TO=:REM CREATION ARC DE CERCLE 

1220 CT = COS (Ti + DT # KH):ST = SIN (T4 + DT + FH) 

1230 REM LIGNES TRIGO DE THETA 

1235 J = K + 1 


Le — 


es ::40 


XT(L;:J) = XC+(FY +F2) # CT #R 
1230 YTL,JID = VC+(FX #4 CT +FrZ + ST) + KR 
1260 ZT(L,JID= 2ZC+ {FX + FY)I #4 ST +R 
1270 NEXT K 
1275 FOR J=1 TO 9 
1250 XTIL,J) = INT (1000 # XT(L,J))) / 1000 
12970 YTiL,J) = (INT (1000 # VYTEL,J))5) / 1000 
1300 2T{L,;,J) = (INT (1000 + ZT(L,JT))3 / 1000 
1400 PRINT XT(L:J), YT{L,:J),ZT(L,J) 
1410 NEXT J 
1420 GET ASH 
19979 RETURN 
2000 REM 
CREER UN OBJET 
£2O0S HOME :1L = © 
2010 HOME : PRINT "VOULEZ-VOUS ::": FRINT 
2020 PRINT "'1-CREER DES CHAINES" 
030 PRINT "2-POINTILLER DES SEGMENTS"" 
2040 PRINT ‘"'3-CREER UN CERCLE" 
2050 PRINT "4-CHAINER DES CERCLES" 
2060 PRINT "S-CHAINER DES COUPLES" 
2070 PRINT "S-CREERR UN ARC DE CERCLE": FRINT 
2100 INPUT "VOTRE CHOIX ‘;C 
2110 ON TT GOSUE 10000,11000,12000:13000,14000,1000 
2999 RETURN 
3000 REM 
STOCKER UN OBJET 
3010 INPUT "NOM DE L'OBJET’ :0O# 
SO20 DS = CHR (13) + CHRS#S (4) 
3030 PRINT D#'OPEN'',0$# 
3040 PRINT DF'UWRITE’'';,©HF 
3050 FRINT L 
30860 FOR I=1 TO 
3070 PRINT Nil) 
3050 NEXT I 
3090 FOR I=1 TOOL 
3100 FOR J = 1 TO Nil) 
3110 PRINT XT{I1,J): FRINT YT(I,J): PRINT ZTiIi,J) 
3120 NEXT J: NEXT I 
3130 PRINT D#'CLOSE'' , © 
3999 RETURN 
4000 FEM 


CHARGEMENT OBJET 


4010 
4070 
4030 
4040 
4050 
4060 
4070 
4050 
4090 
4100 
4110 
4120 
4130 
4999 
5000 
5999 


INPUT "NOM DE L'OBJET ",O# 
DS = CHRSE (13) + CHRS# (4) 
PRINT D$#'OPEN'",O# 

PRINT DF'READ'";,O05# 


INPUT EL 

FOR I=1TOL 
INPUT Ni) 
NE XT I 

FCPI = À TES Et 
FOR J = 1 TO NI) 


LEUIT TT JIS LNÉEUIT YTCEsd)- 
NE XT J: NE XT I 

PRINT DF'CLOSE’ ,O©O# 
RETURN 

GOSUEB 2000 


RETURN 


INPUT ZTKéI,T) 


10006 KREM 


CREATION DE CHAINES 


10040 
10050 
10040 
10070 
10G2=0 
10090 
10106 
10110 
10120 
10130 
101140 
10150 

10160 

10176G 
109799 


L = L + 

Mer "NOMBRE DE FOINTS: "3; NL) 

J = J +1 

PRINT "POINT NO ":J 

INPUT “"XT=";XT(L,J) 

INPUT "YT="; YT(L,J) 

INPUT ZT=";2T(L,J) 

IF J= NL) THEN 10140 

GOT 10070 

INPUT "UNE ERREUR"; RS 

IF LEFTS (R$,1) = "Oo" THEN 10050 

Ne AUTRE CHAINE®T"':RS# 
$ (R$,1) = "oO" 

SÉUen ' OO" THEN 10040 


O9 


116000 


RE M 


POINTILLER UN SEGMENT 


11010 LL = L + 1:N{L) = 5 

11020 PRINT "DEBUT DU SEGMENT " 
14030 INPUT ‘'X=";, XD 

11040 INPUT ‘'Y="; VD 

11050 INPUT ‘"Z='"':7D 

11080 PRINT 'FIN DU) SHGMENT" 

11070 INPUT "'X="U:xXEF 

11050 INPUT "Y=" VE 

11090 INPUT “Z2":2F 

11100 FOR W=iTOS 

11410 XTCL,W) = XD + (XF — XID) # (KW — 41) / 4 
11170 YTÉLeW = VD + (YF — YD) # (LV — 1) / 4 
11130 ZTiL,UW) = ZD + (ZF — ZD) # (WW — 1) sf 4 
11140 NEXT 

11999 RETURN 

12000 REÈEM 

CREATION D'UN CERCLE 

12010 HOME 

12015 PRINT "CENTRE DU CERCLE:": PRINT 
12020 PRINT INPUT MKCOC="XC 

12630 INPUT "YC=",ve 

12040 INPUT "Z2C-=",:2C 

12050 FRINT INPUT "AZIMUT AXE ':AXxX 
12060 AX = AX # 3,1416 / 10 

1#O08S FRINT INPUT "ANGLE DE SITE AXE:":SI 
12068 SI = SI + 3.141686 / i1z=0O 

1#070O FRINT INPUT "RAYON ‘':}ñR 

12050 CA = cos (AX): SA = SIN (AK) 

12085 CS = COS (S1):SS = SIN (SI) 

1:00 = EL + 1 

12100 Nil = 5 

42110 = © 

12420 J = J + 1:W= (J — 1) + 725 y = 

12130 XO = O:VO = —R # COS (W):7ZO — FR # SIN (4) 
1213SE X4 = — 20 +» SS + XO + CS 

12133 Yi = YO 

1=134 21 = 20 r CS + XO # es 

12140 XTIL,J) = X41 # CA — Y1 # SA + XC 
12150 VT(L,J) = X1 + SA + V1 # CA + VE 
12160 ZT{L,J) = 71 + zC 

1*#170 IF J- SG THEN 1:170 

12120 GOTO 17170 

121490 EL = L + i 

12200 N(L)D = 9 

LULU LPS Q 

1220 J = J + 1:W= (TJ —- 1) #4 745 / TZ 

12230 XO = O-VO = —- R + COS (W):7Z0 = — R # SIN (WW) 
122SE X141 = — 70 + SS + XO + CS 
12533 Y1 = YO 

12234 71 = 7ZO # CS + XO + ss 

12240 KXT(L,J) = X1 # CA — V1 # SA + XC 
12250 YT(L,J) = X41 + SA + Y14 # CA + Lie 
12280 ZT{L;J) = Z1 + 70 

12270 IF J= 9 THEN 17959 

12250 GOTO 127570 

12699 RETURN 

13000 REM 


CHAINAGE DE CERCLES 


13010 
13017 
13013 
1014 
13020 
13G30 
13040 
12050 
13040 
13070 
130=0 
13070 
131G0O 
13110 
131270 
13130 
13140 
13150 
13160 
13170 
131:=0 
13190 
13:00 
13210 
13995S 


HOME : PRINT "CERCLES COAXIAUX // Ox" 
FRINT : PRINT "AXE DES CERCLES": PRINT 
INPUT "yYC=";,ve 

INPUT "ZC=",7cC 

K = O 

K=K +1: PRINT : PRINT "CERCLE NO ":Kk 

L = L+1:N(L) = 9 

INPUT "ABCISSE ":xC 

INPUT "RAYON ‘:@R 

FOR J=1TOS 

W = J #.725 

TL, lde Xe 

YTIL,I) = VC —R # COS (W):ZT(L,J) = ZC + R # SIN (y) 
NEXT J 

INPUT "UN AUTRET":RS 

IF R$ = "OUI" THEN 13030 

FOR I1=1 TO: 

L=L+1i:N(L) = K 

FOR J=1iTORK 

XT{L,J2 = XT(L —-K —I + J,1) 

ZE) = 2 TCL NT Ti) + 
NEXT J O 
NEXT I 

RETURN 


14000 


RE M 


CHAINER COUPLES 


14010 
14020 
14030 
14050 
14070 
140=0 
14090 
14100 
14105 
1411G 
14120 
14130 
14140 
14530 
14240 
14240 
14270 
14550 
142970 
14306 
14310 
14320 
14331 
143375 
14333 
14334 
14340 
14350 
143840 
14370 
14320 
1449400 
14999 
17000 


PRINT "COUPLES AXES SUR O©OXx" 
K = O:L = © 
K=K+1:L=1L+1:N(L) =5 
PRINT "COUPE NUMERO ':K 
PRINT "'DONNEZS PTS :" 
FOR J= 1 TOSs 

PRINT "POINT NUMERO ‘;J 
INPUT "X=M; TEL, :T) 

INPUT "Y='"; VT(L,J) 

LNEFUF Zm")2T(CL..7) 

NE XT J 

INPUT "UNE ERREURT'':RS 
IF R$& = "OUI" THEN 14050 
INPUT "UN AUTRE COUPLET':R«S 
IF R$& = "OUI" THEN 14030 
FOR 1=1i TOSs 

L=l + 1:N(L) = K 

FOR J = 1 TO K 

XT(L,J) = XT(J,I) 

TL; J) = WT(J,1) 

ZT(L,J) = LT J;1) 

NE XT J: NEXT I 

FOR I=1TOK: FOR J=1TOS 
PRINT XT(LI,;,JD,YT(I1,J),2ZT(I,J) 
NEXT J: NEXT I 

GET 4% 

GOSUB 3000 

FOR I=1 TOR +5 

FOR J = 1 TO NéEi) 

NT, = — YT(I,J) 

NE XT J: NE XT I 

GOSUE 3000 

RETURN 

RE M 


MANIPULER UN OBJET 


17010 
170R0 
17030 
PRINT 
17040 
17050 
T 
17060 
17070 
1700 
17090 
17100 
17110 
O0 
17999 
15000 


SYMETRIQUE % 


1:00 1 
1=005 


HOME 

PRINT “VOULEZ-VOUS: "': PRINT 

PRINT "i-OPERER UNE TRANSLATION DE L'OBJET": 
PRINT "£2-OFERER UNE ROTATION'": PRINT 

PRINT "3-CREER LE SYMETRIQUE % UN PLAN': PRIN 
PRINT "4-FUSIONNER DEUX OBJETS": PRINT 

PRINT "S-HOMOTHETIE": PRINT 

PRINT "é—-AFFINITE": PRINT 

PRINT "7-HOMOTOFPIE": PRINT 

INPUT "VOTRE CHOIX ‘;C 


ON € GOSUE 17000,20000,15:000,21000,P72000,23000,740 


RETURN 
RE M 


PLAN 


HOME 
FX = O:FY = O:F2Z 


—— 
= 


Le 


1=:006 GOSUB 30000 
12007 PRINT : PRINT "SYMETRIQUE PAR RAPPORT AU FLAN 
: PRINT : PRINT ‘1 
250 PLAN XOY'': PRINT : PRINT "Z- Y=0 PLAN xXOZ': FRINT 
PRINT "3— Xx= 
O FLAN YOZ': PRINT : INPUT "VOTRE CMOIX "ie 
12005 IF C = 1 THEN FZ = 1 
1:009 IF C=2? THEN FY = 1 
12010 IF C=3 THEN FX = 1 
011 FOR I=1TOL: FOR J= 1 TO Nil) 
12020 IF FX = 1 THEN XT(I,J) = — XT(I,J) 
1SH02E IF FY = 1 THEN YT(L,J) = — VT(I,J) 
15024 IF FZ = 1 THEN ZTUI,J) = — ZT(I,J) 
1=:030 NEXT J: NEXT I 
1:03S PFRINT 
15040 INPUT "NOM NOUVEL OBJET "OS 
12050 GOSURB 3030 
HH09 IF C=Z THEN FY = 1 
1999 RETURN 


17000 


TRANSLATION OBJET 


17010 
17020 
17040 
197030 
17060 
170790 
1700 
197090 
17100 
17110 
17120 
17130 
17140 
171350 
171860 
17770 
20000 


RME M 


"DONNEZ VECTEUR TRANSLATION": 


PRINT "NOM OBJET TRANSLATE :": 


HOME 

GOSUER 30000 
PRINT 

INPUT "DX='"',DX 
INPUT "DY=",LY 
INPUT "DZ=";D2Z 
FOR I LL, FE E 

FOR J 1 TO NI) 
XT(I;:J) XT(I,J) + DX 
VNT(I;,J) MT{I,J) + DY 
ZTI,J) = ZT(I,J) + DZ 
NEXT J: NEXT I 
PRINT : 

INPUT "",05$ 

TSOSUE 3030 
RETURN 

RE M 


ROTATION OBJET 


=:0010 
ZO002:0 
LOGES 
Z:0030 
20040 
0050 
20040 
20070 
£ZO00=0 
£LO0S9S 
21000 


HOME 


GOSLUIB 306090 


FRINT 
FRINT 
PRINT 
FRINT 
PRINT 
INFUT 


RE M 


ROTATION AXE PARALLELE A:": 
"i—-L'AXE OX : ROULIS": 
PL NE CT 
"3-L'AXE OZ : 
PVYOTRE. CHOIX "CE 

ON € GOSURB £25000,26000,2/7000 
RETURN 


FUSION OBJETS 


1010 
1020 
1030 
1035 
19040 
104% 
1050 
1080 
1062: 


DRARSRSRORÈRPRORES 


OPERATION DE FUSION 


1085 
1070 
1070 
1090 
141100 

110 

1:50 


JAH NM NHNRT 
hhbhhhhRphe br 
> 
E 
[@ 


HOMOTHETIE 


220190 
22020 
“2040 
T 

RS ee 
22-060 
22070 
22050 


HOME 


PRINT "FIN DE FUSION,TAPEZ LE MOT FIN’: 
PRINT "PREMIER OBJET A4 FUSIONNER": 


GOSUER 30000 


INPUT "NOM OBJET 4 HUSIONNER:";,O# 
THEN 21500 

PRINT D$''OPEN",0# 

FRINT DF'READ'"';OS 


1F © 


RE M 


REM LL=NOMBRE DE CHAINES 


"FIN" 


: TANGAGE ": 
LACET": 


INPUT LL 


FOR I 


= EL + 4 FOL + ET 


INFUT N(I) 
NE XT I 


FOR I 
FOR J 


GOTO 


REM FIN DE FUSION 


HOME 


PRINT 


= L+1iTOL+LL 
= 4 TO N(I) 
INPUT XT(I;,:J): 
NE XT J: NE XT I 
FRINT D#'CLOSE‘"';O0# 
L = L + 


(= 
= 1046 


INPUT YTI,J)i: INPUT ZT(I;,J) 


: INPUT "NOM DE L'OBJET GLOBAL ";C# 


GOSUEB 3030 


RETURN 


RE M 


PRINT "COORDONNEES CENTRE HOMOTHETIE": 


HOME 

GOSUE 30000 

INPUT "'XC=";XxXC 
INPUT "YC=",;, Ye 
INPUT "2C=",2cC 
PRINT 

FOR I 

1 = XT(I,JI) — XC 

1 = YTA, JD —-YC 

1 = ZT(:J) — ZC: REM 


INPUT "'CORFFICIENT HOMOTHETIE 


1 TOOL: FOR J 


4 TO N(I):REM 


PRINT 


PRINT 


FRINT 


PRINT 
PRINT 


DU NOUVEL OBJET 


71 


PRIN 
MAO: PR 
2 


a 


XE = *X4 + HO 

V2 = Vi # HO 

Z=Z = Zi # HO: REM 
XT(I,J) = XX? + xXC 
VMT(I,J = VE + YC 
ZT(l:J) = ZE? + ZC: REM 
NEXT J: NEXT I 
RETURN 

RE M 


AFP FINITE 


23010 HOME 
23015 FX = O:FY = O0-:FZ = © 
23020 GOSUEB 30000 
23060 PRINT ‘"'1- X=0O PLAN YOZ'': PRINT 
23070 PRINT '"'£=- Y=0O FLAN XOZ'': PRINT 
230=:0 PRINT "‘3—- Z2=0 FLAN XOV'': PRINT 
23090 INPUT "VOTRE CHOIX ",cC 
23100 IF C= 1 THEN FX = i 
23110 IR C= © THEN FVY = 1 
23120 IF C=3 THEN FZ = 1 
2S1*S PFRINT INPUT "OCOEF AFFINITE";,2F: PRINT 
23130 FOR 1I1=1 TOOL: FOR J = 1 TO Ni{l):REM 
23140 IF FX = 1 THEN XT(I,J) = AF + X'TÉIL,1J) 
2931S0 IF FY = 1 THEN YT(I,J) = AFF # YT(I,J) 
3160 IF FZ= 1 THEN ZT(I,J) = AF « LT(l, Ji: REM 
23170 NEXT J: NEXT I 
“3999 RETURN 
240006 REM 
HOMOTOPIE 
24010 FX = G-FVY = O:KFZ = O 
=240:0 GOSUR 30000 
2405 PRINT INPUT "AMPLITUDE DEFORMATION ";4: FRIIN 
Es 
= 40S4 INPUT "LARGEUR DEFORMATION ‘:B: PRINT 
24080 PRINT ‘"i-SELON OX": PRINT 
“4070 PRINT "Z-SELON OY': PRINT 
24050 PRINT "3-SELON O©OZ': PRINT 
24090 INPUT "VOTRE CHOIX ‘;C: PRINT 
24092 IF C = 1 THEN FX = 1 
24093 IF CC =? THEN FY = 1 
24094 ÎIF C=3 THEN FZ = 1 
24100 FOR I= 1 TOOL: FOR J = 1 TO Nil): RE M 
24110 X1 = XT(I,J):wYi = YT(I,J):Z1i — £Til,J) 
24140 RE = (FX + FY) &# Z1 # Zi + (FX + F2) x VA & Vi + iFT + pFY 
) # X1 # X 
L 
24150 H = A + (EXP ( — (CR? / (2 + BB + B)ih- RE M 
24180 XT(I,J) = XT(I,J)> + FX # H 
“4170 YT(l,J) = YT(I,J) + FY # MH 
24150 ZT{I,9J) = ZT(I,J) + FZ # H 
24220 NEXT J: NE XT I 
24999 RETURN 
5000 REM 


ROTATION AXE // OX 


25010 
25020 
25030 
=>040 
253050 
25040 
25070 
25050 
250970 
+100 
25110 


20120 
295130 
25140 
“9 150 
20140 
so170 


2510 
2S099 


HOME 

PRINT "TRACE AXE DANS PLAN YOZ': 
INPUT "YA="; YA: PRINT : INPUT "ZA=" 
INPUT "ANGLE,DEGRES: "AR 
REM AR ANGLE DE ROULIS 
AR = AR + 3,1414 / 120 

CR = COS (AR)-SR = SIN (AR) 
FOR Il=1TOL: FOR J = 1 TO NI) 
XTII,J) 

YT{I,J) —- VA 

ZT(l;J) — ZA: REM 


FRINT 
LA: FRINT 


X 1 
LE Y1+#k CR — Z1 # SR 
Z= Y1F+ SR + 21 # CR: 
XT(I,7) 
WT(I,J) 
Z'T(I;J) 


RE M 
X2 
Me 
Z= 


+ YA 
+ ZA: REM 


NEXT J: NEXT I 
RETURN 
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26000 


RE M 


ROTATION AXE // OY 


©, 0, D, oO D 


BIGRORCRARSRSRS 


he à 
re © 
00000 000 


HT) 13 
Û: [IL ELA 


RURURS 


[ECS 


un 


O0. ©, O 0: 0: D. 
sbhhrhkh 


SRB 


Ûÿ 
O 


HOME 

PRINT "TRACE AXE DANS PLAN XOZ': 
INPUT “xXA=";XxXA: PRINT 

INPUT "ANGLE DEGRES ";A41 

Ai = Ali # 3.141868 / 10 

RE M Ai ANGLE DE TANGAGE 

CT = COS (AL):ST = SIN (A1) 

FOR I1=1 TTOL-FOR J= 1 TO NI): 

Xi = XT(I,J) — XA 

W1 = YT(I,J) 

Zi = ZT(I,J) —- ZA: REM 

Ke = Li EST + XL # CT 

V2 = Y1 

22e =: 21 # CT — Ài # ST: REM 
XT(CI,J) = XE + XA 

WT, JD) = YE 

ZT(lsJ) = ZE + ZA: REM 


NEXT J: NEXT I 
RETURN 
RE M 


ROTATION AXE / ©QZ 


PRINT 


RE M 


: INPUT "ZA=";7Z7A: PRINT 


“7010 HOME 

27020 PRINT "TRACE AXE DANS FLAN XOY‘': FRINT 
27030 INPUT "'XA=";XA: PRINT : INPUT "YA="; YA: PRINT 
276040 INPUT "ANGLE ,DEGRES:"; AT 

27/0850 AL = A # 3.151686 / 150 

27060 REM AL ANGEE DE LACET 

27070 CL = COS CAL):SL = SIN CAL) 

270510 FOR I=1TOL: FOR J= 1 TO Nil): REM 
270970 X1 = XT(I,J) — XA 

27100 Y1 = YT(I,J — YA 

27/7110 Z1 = ZT{iI,J): REM 

Drdie NN Xe À CR NA OL 

2130 VE = Ki # SL + Yi & CL 

271406 ZT = 21: REM 

27130 XT(I,J) = XE2 + XA 

27/1660 YTI,J)= YE + YA 

27170 ZTil,J) = 22: REM 

=2/1=:0 NEXT J: NE XT I 

279799 RETURN 

“000 REM 

CREATION D'UN FICHIER BLOC 

“5010 HOME 

25020 INPUT "NOMBRE D'OBJETS ";£Æ 

221030 FOR I=1TOE 

2040 PRINT "OBJET NUMERO ‘';I 

203530 INPUT EL&(I): FRINT 

“060 NEXT I 

22070 INPUT "NOM DE CE BLOC ";BE$: FRINT 
2020 PRINT D#'OPEN';BL# 

“090 PRINT DS&'"'VWRITE’'';:ELS 

2100 PRINT E 

“4110 FOR I= 1 TOE 

25120 PRINT EL&%(1) 

21130 NEXT I 

25140 PRINT DS'"'CLOSE";,EL# 

24999 RETURN 

29000 REM 


LECTURE FICHIER BLOC 


29005 
27610 
29020 
=:7030 
27040 
27050 
29060 
27085 
27070 
2700 


HOME : INPUT "NOM DU BLOC ‘";BL&: FRINT 
DE = CHKRS (13) + CHRS (4) 

PRINT D#&"'OPEN'";BL# 

PRINT D$S'"'RE AD';BEL# 

INPUT E 

FOR I= 1 'TOE 

INPUT EL&(I) 

NE XT I 

PRINT DF'"CLOSE";ELS 

FOR I=1 TOE: PRINT ELS#S(I): NEXT : 


000: NEXT TT 


299799 


RETURN 


FOR TT 


= 1 FOEZ 


F4 


30000 


RE M 


L'OBJET EST-IL EN MEMOIRE” 


30010 PRINT : INPUT "L'OBJET EST-IL EN MEMOIRE 


PRIN 
30020 
30030 
30040 
309979 
40006 


és 
IF LEFTS (R$,1) = "OO" THEN 30999 
INPUT "NOM DE L'OBJET: ";O0#: PRINT 
GOSUEB 4020 
RETURN 
RE M 


CHAIN PANGRAPHE DESSIN 


40010 PRINT D#$'BLOADCHAIN,AS5S?TO" 
40020 CALL S2O"'PANGRAPHE DESSIN" 


5060 


RE M 


MODIFIER UN OBJET 


5010 
5020 
ss 030 
5040 
» O0S0O 
5060 
2070 
D O0 
50970 
9 100 
5110 
So 120 
D7F7E 


+TU'iRS: 


Me 


HOME 

GOSUB 30000 

PRINT : PRINT "OBJET DE ‘;L;" CHAINES": FRINT 
INPUT "DONNEZ L'’'INDICE DE CHAINE ‘;I 
INPUT "DONNEZ INDICE PFOINT SUR LA CHAINE 
PRINT 

INPUT "XT(I,J)=";:XT(I,J): PRINT 

INPUT "YT(I,J=";YT(l,J): PRINT 

INPUT "ZT(I,J)=";:2ZT(I,J): PRINT 

INPUT "UN AUTRE POINT ';R# 

IF LEFTS (R#,1) = "©" THEN 5640 


GOSURB 30:00 


E ND 


5 


PANGRAPHE DESSiN 


le Moux de PANGRAPUE héros Den Us ES le 


PANCRAPUE OVIET ; ne” 


À (CREER UN OBJET) 
DeSTOCRER UN ORIET 
B -CHARGER LUN OBJET PANGRAPHE DESSIN 


À LCOMPLETER UN ORJET 
D-(MoDIFIER UN OBIET) 

G- REPRÉSENTER UN OBJET 

7- STOCKER UNE IMAGE 

$- CHARGER UVE IMAGE 
(MANIPULER UN OBJET) 
1H-CDEFINIR UN RLOC D'OBJETS) 
AA- CONSULTER UN FICHIER RLOC 
AT 

de 

14 — 

Se 

AL 

17 - AFFICHER LE CATALOGUE 
A£$- SORTIR DU PROGRAMME 





VOTRE Choix ? RE 
À 
F6 


à PANGÇGRAPHE ORSET. 


ILOADPANGRAPHE DESSIN 
JILIST 


O IF FD = 


1 THEN 5 


L = 0: REM PANGRAPHE DESSIN 5/2/x4 
DIM XT(30,9),YT(30,9),2T(30,9),X(30,9),Y(20,9),N(3O):FD = 1 


1 
3 DS — 
D 


CHRS$S 413) + CHRS& (4) 


TEXT : HOME 
4 + O THEN 330 


FROGRAMME MENU 


330 


VTARB 15: HTARB 15 
PRINT "VOULEZ-VOUS: 


FOR TE 


HOME 
PRINT 


= 1 TO SO0: NEXT 


VTARB 3: HTAB 25: PRINT "PANGRAPHE DESSIN" 


VTARB 1 


PRINT 
PRINT 
FRINT 
PRINT 
FRINT 
PRINT 
FRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
FRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
INPUT 
ir. © 
IF € 
LE © 


"1A—- (CREER UN OBJET)" 
"2—(STOCKER UN OBJET)" 
"3-CHARGER UN OBJET" 
"4—-{(COMPLETER UN OBJET)" 
"S—-CMODIFIER UN OBJET) 
"6—-REPRESENTER UN OBJET" 
"7?-STOCKER UNE IMAGE! 
"H—-CHARGER UNE IMAGE" 
"F—-CMANIPULER UN OBJET)! 
"410—-(DE FINIR UN BLOC D'OBJETS)" 


"11-CONSULTER UN FICHIER BLOC" 
AD —r: 


"417—-AFFICHER LE CATALOGUE" 
"415-SORTIR DU PROGRAMME" 
"VOTRE CHOIX ",;C 

17 THEN PRINT D#"'CATALOG": 
1= THEN END 


GET A$: GET 4% 


19 THEN PRINT D$'RUNPANGRAPHE PRINCIPAL 


ON € GOSUE 40000,40000,4000,40000,40000,7000,:000,90 
00,40000,40000,7 


3000 


799 GOTO 10 


ua AK, We He où FLA 


Vofoux 4e CE. 


#0 000 , entre pelle : 


40000 REM 


CHAINAGE SUR P/OBJET 
AOL O PRINT D$S"BLOADCHAIN,AS20" 
40020 CALL SEO"PANGRAPHE CGBJET" 


C- FD, mère lt y (à 


ré a 


Poux codec un get, 0 Houdan commenur per Le charges 


Po 
7 La WWE Ale Aa chrargemanÂT 
4900 REM 


CHARGEMENT OBJET 


4010 


4020 DS = 


46030 
4040 
4050 
4060 
4070 


INPUT "NOM DE L'OBJET "';C# 
CHRS# (4) 

PRINT DF'OPEN'';,O©# 

PRINT D$'"READ'"';,O# 

INPUT L 

FOR I=1TOL 

INFUT Nil) 


4050 NEXT I 

4090 FOR I=1TOL 

4100 FOR J = 1 TO NI) 

4110 INPUT XT{(I,J): INPUT YT(I,9J)2: INFUT ZT(I1,J) 
4120 NEXT J: NEXT I 

4130 FRINT LD#'CLOSE’';,OS 

4999 RETURN 

5000 GOSUE 2000 

2797 RETURN 


Z7000 


RE M 


LECTURE FICHIER EOC 


29005 HOME : INFUT "NOM DU BLOC ";Bl#: PRINT 
29010 D$5 = CHRS (4) 

29070 PRINT D$'OPEN'';ELS 

29030 PRINT D$'"READ";:EL# 

27040 INPUT E 

29050 FOR I=1TOE 

29060 INPUT ELS$(I) 

29085 NEXT I 

29070 PRINT D#'CLOSE’";,EL# 

2900 FOR I=1 TOE: PRINT EL#(I): NE XT I 
59090 FOR TT = 1 TO 000: NEXT TT 

29999 RETURN 


+0 





REPRÉSENTER 
UN OBJET 


L'or (ou La oct | Que MauA Aruba roprésentn | ne laut 
quelquepart dana < eqaa oûyet XT, NT, ZT. 

Pour Céox Une vue en pagtedie À vr6 follnn Un drquer 
un POINT D'OBSERVATION de comennees XM,YM,2 M. 
HR Éaut eut indiquer à La maine stars qua octo 
A Lei Haut legandu" cet cbget , c'età due suit La 
FENETRE DE ViSION : 


Moua Aura QUE Med porummA à vroben AE Ra Le L'OUVERTURE 
ANGULAIRE AN 4e cote Henile , c'e à dau vale FOCALE notre 
ZOCM, 

L'ATTITUDE de L'banvatsur dopurd de ais ana , que 
L'on nrhure un Un jod d'appareil photepaphique 





anale de DÉVERS 







| L ame de SITE 


T<— AZIMUT 70 


fus 4 ei Mau , dame lt rerrign. ol PANGRAPHE 
saison que £'AZIiMUT té SITE, ma en 

Le cr do RAE . C'est mauvars peur Lea velibres eX om 
nuque d'alhagpe un trbcls . | 


“ ue 


pr 
Se 


SG) 






l'angle de dèves duna êta ullérauemmt beat a 
ps. ACER exemple neprisenti Aux L'énan Ce que 
EUË uv Ale pur dont an Viage (éimufatiur er pilotage 


DÉVERS DU AU ROULIS 





He CO 
LACET ROULIS + \ 
> 7) TANGAGE 





80 


La jme idée comnitnait à indiquer à €'erdimaleur ;#x- même, 
La arofer d'animmt 24 de mt. Mais la impose un cadet 
Hérible que L'on pet ut quan Len cond à a. 
machine. 





(SXr,0ÿr,0 27) nopréionte Le RÉFÉRENTIEL ABSOLU , va à a duquel 
on cifint Len Cytrilavvmies (KT, NT, ZT) oler POINTS OBJETS, 
M et Le paut d'ebsonvalim , de cymolamnées {XM,YM,Z M) eÆ Le 
neétéur MG La dati 4 promtsae. On va fous Unler nenir un 
Biède Wnectanate (MXC MVL, MZ) coutré em M etelat Gen axes 
dot parallèles aux ayes dx tüëcds (ON, OVT, 07T) . 

un cle. fique, on vof Ans Lan Lo axes À (Agonut ) 
eÆ Se). 

La riaée 4e foit em docti l’un peut G (X6,Y6, 26) , et 
c'est ot enamblr oo Coleman quai Ana Ésumi à La 
macfume . Se Le pout @ 4e boue Ble Le conte de pauilé 
ole L'objet, par exemple, m ana Gutes Lg chances le Nagañoler. 


o7 


À ce Atade, on frrumeu£ 1e dure : me pod inclure 

ces cndenie obgt XG,YG,ZG dans La fier CRIE T, ef 

stocker ot ur £ruratique Lorna lu oleaat , Lo omtage 

Jruncait 4e fans automatiquement. Mas eRf ax rat Gp 

noise tir Ua paca ola- village ,arec phuaaurs bc -maison : 
Le fout ele wué pue 


& , 


& Oaan.ol on Racana L' obtet 
MAIRIE”, La duodtn ele ae. 
An contre | 
Le Aablème et Autant da me ras ouflux OÙ 4e trauve un obyet 
méme ur La otuk le . Sin on Maque de fade pra mat 
te tem à Le rchurchhr . Une Aolulin eovauts à fre Fou 





el Énnetus cétilt 
xT  A'appalua MAÏRIESS-4p- 2 


OU Maux : HAIRIE(SE/42/) 


lg 


De 


Le. vectèux MG A. AHArAN- Conno sam ra 


CX=XG-XM 
EN = Ye -YM 
CZ =2zG — ZM 


On connait Lo fat d'ustuobma poumettaut te caf cul € animek À 
af de AUS. He faut infiocune maintèmant un Dome Uiadre 
LiE À L'OBSE RVA TEUR : : ne 
= L'oxe MU ef clèniare & MG. 
W 


® 
Û 

| 

} 


U as | 
NE l'axe MV et Ronrentak 
Ÿ, | 


l'axe nWw cena CR 


2T 
Vr ÆA T at un point di L'obget, 2e4 
() concemnie ‘apharentes ar nappet à 
XT Ce. Mouveeur Dre dar , reusi(XA VA, Z A) 


€" onumut 2% Lo ME 'oppaauts, qui otaurendnmut 24 Cotctanmnest 


L-CADAR- 


OV Où : 


— 7 —_—> 
XA = MT.MuU 

hs ue 
ZA = MT. MW 


XT-— XM 
arte MT à ŸYT -YM 


2 <2M 


O5 


AU = CnaS Ca À _ AV = = An XW — - (SG À 


nu YU GS saA MVd YV=< GA MW/YW = se Su 
ezU- SES ZV- © ZW - Ca S° 


On 4e : | (eo 4 = CT or 
CnS = CK Su S=SK 
À où 
= Ci 7 Xw = —-SK ACT 
XU = CrY4aCT _e KVe=e = CT _ 
MU / Yu=ckxST MV< ÿV-= cr MWS ywW = -SKXS 
ZU = SK ZV= 0 ZWz CK 


XA = XL 4 XU + YLX YU +ZLa&ZU an 


VA = XLHXU + YLÆYV+ZLXZV Les COORPONNEES 
ZA = XL4x AW 4 YLX YW+ZLXZW APPARENTES . 


REPRESENTER UN OBJET 


7010 TEXT : HOME 
7020 PRINT : PRINT 
7020 INPUT "OUVERTURE ANGULAIRE ";, AN: PRINT 
7040 PRINT "POINT LD'OBSERVATION’ 
7050 PRINT : INPUT "xX=",;XxM 
70850 INPUT "'Y='"';"YM 
7070 INFUT ''Z='";7M 
7040 PRINT : FRINT "CENTRE G DE L'IMAGE’": PRINT : INPU 
T 'XG=",;XG: INPUT 
YG=";, YG: INPUT "'2G="',2CG 
7090 CX = XG —- XM:OCY = YG — YM:CZ = ZCG — ZM 
7100 DI = SOR ICX # CX + CY # Cw) 


7110 IF DI = O AND CZ x ©O THEN TE = ©O:KI = 3.1416 / 2: GOTO 
7#10 

7120 IF Di= C0 AND CZ «4 © THEN TE = O:KI = — 3.141646 / 2: GO 
TO 7210 

7130 KI = ATN (CZ / DlIl) 

7140 IF CX = ©Q AND CY : THENTE = 1.57: GOTO 72:10 

71450 IF CX = OO AND CY + THEN TE = - 1.57: GOTO #10 


Q 
. 0 
71SOTE = ATN (CY / CX) 
AND CY : OO THEN TE 
(eo, 
O 


7170 IF CX *# © = 3.1416 +TE 
7150 IF CX #4 OO AND CY < THEN TE = 3.141868 + TE 
7190 IF CX #4 © AND CY = THEN TE = 3.1416 

72500 IF CX = OO ANDCY # O THEN TE = — 3.14i6 / = 
7210 AZ = TE # 170 / 3.1416:SI = KI # 170 / S3.1416 


7220 REM AZ AZIMUT,;,SI SITE 


7:30 CT = COS (TEH):ST = SIN (TE) 
7240 CK = COS (KI):SK = SIN (KI) 

7250 XU = CK # CT:YU = CK + ST:ZU = SK 
7260 XV = — ST:YV = CT:2ZzV = 9 


7270 XW = SK #4 CT':YW= — SK # ST:2ZW = CH 

720 HOME 

7:90 PRINT "1i-OBJET DEJA EN MEMOIRE": FRINT 
7300 PRINT "2-DESSIN PAR ELEMENTS": PRINT 
7310 PRINT "'3-DESSIN PFAS 4 PAS’: PRINT 

7320 PRINT ''4-DESSIN PAR BLOC": PRINT 

7330 INFUT "VOTRE CHOIX ";C: PRINT 

7340 ON C GOSUEB 12000,11000,30000,10000 

VF GET AS: TEXT 


7997 RETURN Ÿ 1 


De MUNE Ga , un Arena rame 24 2e, plane 
Bree 1] L'obyef eN DÉJA ex bmane . Ut clonun 

A um HAT UNIQUE ; qu' we ane pan Heqou ot ebanger 

M wdcquua cd L'ndiatur qua. L'on Arai Le. 

Ra d'un our Covatrandt— Ur Wafaur manie 
d'obyl, qui rent Audio par PS Le UT PTOUS A! Un der 
À léaree A EL£(CI) qua qu N Ras Marne ue à 
Lu AN ar A 
[ES]: Det pus à pen : danse adfonance 

Le og graphique Na foce QXE , 0e ame 


uw NA gra, den à pan, a Vauteaux obtel 
ar) Dem gran ce . l'ewsen Île d'elles 


WA ro gumne oe- Qace A , à ads et 
pe . 
OBJET DEJA EN MEROÎRE : 


12000 REM 

OBJET DEJA EN MEMOIRE 

171010 HGR£E : HCOLORE= 8 

12070 HPLOT 0,0 TO 279,0 TO 279,170 TO 0,170 TO 0,0 
12030 GOSURB 15000 


FOR T = 1 TO 7: PRINT CHRS (7): NEXT T 
12999 RETURN 


En Are : où Wa Ée Cadre … 


G5 


DESSIN PAR ÉLÉHENTS : 


11000 REM 


DESSIN FAR ELEMENTS 


11010 HOME 
1020 INPUT “NOMBRE D'ÉLÉMENTS ‘;# 
10390 FOR K=1iTOE 
1040 INPUT "NOM ELEMENT SELS CK) 
1045 NEXT K 
1050 HGRE : HMCOLOR= 3 
1060 HPLOT 0,0 TO 279,0 TO 279,170 TO 0,190 TO O,0 
LOTO COR -R =:.1 -TOr.E 


1070 Of = ELS(K) 


bb hRhR BR RE He 


1090 GOSUE 4070 

1100 GOSURB 15000 

1110 NEXT K 

1120 FORT = 1 TO 7: FRINT CHRS (7): NEXT T 
1999 RETURN 


Preware Hate : Soirée de Elemekr Couleur 


DESSIN PAS À PAS 


30000 REÉEM 


DESSIN PAS 4 PAS 


30010 HOME 

30020 INPUT "NOM FREMIER ELEMENT ";,O$: PRINT 

30030 GOSUREB 4020 

30040 HMGRE : HCOLOR= 2 

30050 HPLOT 0,0 TO 279,0 TO 279,190 TO 0,190 TO O©,0 

30060 GOSUR 15000: FOR TT = 1 TO 7: PRINT CHRS (7): NEXT 
AE 

30070 GET 4%: GET A#$ 


Cadre, Anis € image. 
Suk à Gept'Bips " fmaua CEHR LCI) ). 
Puu powe à € aide à CET À 


Tnte SANS line 4'umage, qua fx Uacre Lun 


PAGE I ef qu wo utacte— 


86 


En vod tx, quart remet | 


UN AUTRE ELEMENT 7 


A c'e mm, fu de CR. ATUA AD GA re , Far Heu 
a vo 444 RETURN 

Æ c'efr our je de L'élément, chorgomest, nt 
La. ro Ale opagtrque er ea POKER AD HOC 24 
Aa C GOSUB 15848) , 4 movaelle pause. 


30020 PFPOKE — 14303,0: FPOKE — 16300,0: REM TEXTE 
300906 INFUT "UN AUTRE ELEMENT * "3R#%: FRINT 
30100 IF LEÉEFTS (R6,1) #4 >: "OO" THEN 30999 


30110 INPUT "NOM DE L'’'ELEMENT ";:©#%: FRINT 

30120 GOSURB 4020 se 
30130 POKE — 164304,0: POKE — 16299,0: REM PAGEII 

30140 GOSUB 15000: FOR TT = 1 FO 7: PRINT CHRE (7): NE XT 
ET 


30150 GET AS: GET AS 
301690 GOTO 300:0 
30997 RETURN 


DESSIN PAR BLOC 


190000 REM 

DESSIN PAR BLOC 

10010 INPUT "NOM LU BLOC ",BlS: FRINT 

10030 HGRE : HCOLOR= 3 

10040 HPLOT 0,0 TO 2/9,0 TO 279,170 TO 0,170 TO ©Q,0 
10050 FOR K = 1 TOE 

10060 ©O$ = ELS(K) 

10070 CrOSURB 4020 

10070 GOSUEB 15000 

10090 NEXT K 


10100 FORT = 1 TO 7: PRINT CHRS# (7): NEXT T 
10999 RETURN 


are. our a Mem ox Frebier Bbe, €'ntralms 
Lo Harge C EOSUR 24 gg). 


Fac “qus Ta (ea PE 2 hat 


2 


H“O00O REM 


STOCKER PAGE II 


=O0S HOME 

5010 INPUT "NOM DE L'IMAGE "“;:1M# 

2020 DS = CHRS# (4) 

030 PRINT DS'BSAVE';I1M#;",4#4000,L1$#7000" 
2999 RETURN 

7OOO REM 


CHARGER SUR PAGE II 


FO00S5S HOME 


7010 INPUT "NOM DE L'IMAGET "';1M# 
7015 HGRE : HCOLOR= 3 
FOEO DE —- CHRS (4) 


7030 PRINT D#F'BLOAD'';,IMS#;",4A#$4000" 
FOSC GET A4% 
7999 TEXT : HOME : RETURN 


Kat Le Gluler bec € hrage— 


IMAGE 


On Cove ar Cf Por Mrs œmomness Tratimeur use 
APPARENTES , clef à ua Leo comtes Coleriquses 
OA RouAr ans un retire taQ Li à L'obrnvalar 





15000 REM 


CALCUL ET TRACE IMAGE 


159019 FOR lI=1iTOL: FOR J=1TO NI) 


15040 XL = XT(I,:J) — XM 
150S0 VE = YT(I,J) — YM 
15060 ZL = ZT{I,J) — ZM 
150970 XA = XL # XL + YL # YU] + ZL # ZU 
13100 YA = XL # XV + YL # YV + ZL # ZV 
15110 ZA = XL # XW + WL # WW + ZL # ZW 


en Gnommim ti pomtr au L ecran. 


cu la "fé POLAIRE . 


Re rapiage de <a lus et BESTIAL TR gt 
de 7 Noyer DUAX Ta9R4 12 ef purnrenm lt 











lu ut ,Beute , je cmmmeuce à 
de célle fre Tin prune | 
Cet afqué Aun L'reiQ Ruumaix 


A ue Compunde Le deu de La PERSPECTIVE. Grèce à Lux 
Ua pouvaient cafculen ces cmolmmnezs_ ecran (X, Ÿ) 


69 


ue Maur j'ai tue Puy et cbyectf FISH-EYE 





So OUVERTURE ataut 20%. DER 

su" VA , j'ai L tmpnesiton que Les Ammes ont fut 
dix Le dépont, lune erreur sn chanmenta Île DOS Man 
7e La aie. la VISION at un GESTE. En ebht un neQ 
nas. La rumure at que Len colDulos memes cle La rênes 
AÉ promepalement masiées au wmimnmage ote la Cac 
fovéole le l'axe paquet La meconole que cad ce Qu lea 
oise man À 2 intanolts Lumemuure mars à La VARIATION 
de coûte intenalz La patin ville m'est olme pas 
At que . L'anc plqur Humain 2 en 





SCHÉMA DE 
LA RETINE 


mouvement cle l'axe 
pique - 
— En tenme , où Act mal Le Lan entre ce que 24 
Raman montrent Jar exemple clans Leurs Rues , et 
Un nan le lélérinmn à une cotaire Néimarance lnrque. 
eooos in An, el que tte coma Bouee , ces pont 
Luneraux Laiment ca aintes vi Lo a ar € Renan 


nn Em Armme , €'tmage eù- cire elite 
Lune cenfaure. die cle €'in£nmalinnr etant 





TRACE DÙ HOUVEMENT 
DE LAMPES SUR UN 
ÉCRAN,DU ALA — La VISTON cat une  EXPLORATION Jam amgul 
RÉMANENCE 


| l'axe pique et Aomo come dinar Vens 
oux CHAMP VISUEL, 

oles ponte d'umteneêt. 

_.L'oëf d'Arthur ait equipé Aron réaliser 
cle evt ce POURSUITE ce € obuet. 


SÎTE  ApIMUT, SITE, Kacuaent La nat 






an, 


ee A. 


AZÜMUT Ce prima as ras ns Le. Came que. 
£'eif. 


déplacments en apimat et Ale, eur 
plane 2e DC À. 

- Oti , mar regarde € VISEUR | 
_ A6 x aa hais. € 
malènalie ure POURSUITE 





— Aünr Los Hommes où cortuut des lames de POINTAGE 
Goses au Le untème (agimut La) par des taire le 
Commodilis mécanique. Mai, quant 9 4 agf te VISÉE , «Ce 
nétronvent Le gyifime qui Leur est Le plus NATUREL , cat 
à de un “plane ole vu POLAIRES.,. 


XX TX a A 


ER 
AR 






ANGLE POLAIRE 











Dons L'opautin DESSIN , L'écart amaqufainr na à 10 de laxe 


6 
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15121 IF XA = © AND YA = © AND ZA = © THEN ZA = .00ïi 
15122 RO = SOR (YA # VA + ZA # ZA) 

1512S IF XA = O THEN B = 90: GOTO 135177 

15126 B = ATN (RO / XA):B = B # 1:20 / 3.141 

15127 IF XA © O THEN B = B + 10 

15130 IF YA = O AND ZA = © THEN A = 90: GOTO 1510 
15140 IF ZA = O AND YA * O THEN 4 = — 50: GOTO 151:0 
15150 IF ZA = O AND YA = O THEN 4 = 90: GOTO 1510 
15160 À = — ATN (YA / ZA)-A = À # 150 / 3.141 

15170 IF ZA = O AND VA * © THEN À = A — 1%0 

15172 IF ZA # © AND YA «# O THEN A = 4 + 120 

15174 IF ZA : O AND YA = O THEN 4 = 1:=0 

15150 X = EE + SIN (A # 3 1416 / 120):YV = Br COS CA # 3.141 
7 150) 

152240 X{I1,J) 1406 +X+#2S / AN 


15250 V(I,JT) 


9 — 55 # Y / AN 
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15320 IF YA = YB AND YA x = O AND YA # = 190 THEN XL (1 
> = OG:XL(2) = «7 
GiYLii = VYA:YLÉEI = VA: RP = 1: GOTO 15470 
15325 IF xA = XB AND XA = O THEN 15590 
153:6 IF X*A = XB AND XA 5: «79 THEN 13533570 
15330 IF XA = XB AND XA x = O0 AND XA # = 27/79 THEN XL(1 


A VYEL( 19 = O:YLIE) = 1F90:FP = 1: GOTO 154:0 
15335 IF YB = YA AND YA = O THEN 155970 
= YA AND YA %: 190 THEN 155970 
15340 P= (YB —- YA) / ({XB — XA) 
153860 YI= YA - Fr XA 


1353370 IF YI5 = O AND YI: = 190 THEN FF = 1:H4 = H + i:x1l< 
H} = O:YEL(H) 

= YI 
153370 YI= VA + (279 — XA) # F 
15400 IF YI 5 = OO AND YI: = 190 THEN FP = 1-H = H + i:XL<t 
FI? = 2 79-YEX 

H} = ŸYI 
15420 XI = XA — YA / PF 
15430 IF XI x = ©Q AND XI & = =79 THEN FF = 1:H = HKH + 1:X1 CH 
> = XI:YE (CH 

>) = © 
15450 XI = XA + (190 — YA) / PF 
15460 IF XI = OO AND XI 4 = 279 THEN FP = 1H = H + i:Xt CH 
) = XI-:Yi(H 

>) = 1970 


15470 IF FF = 0 THEN 155950 
15450 SA = (XA — XL(C1)) # (XA — XL 62)) + YA — YL(1)) & CA — LT 
C2 


AT SE = (XB — XL(L1)) (KE — KL6E)) + VE — VECI)) FIVE = EL 
1-1 SE = KELLY — KA) Se 'OKECL) = Xe CÉLUIT Se Ar CPL L En 
Re Se = (XL(ÉE) — XA) &# (XLEE) — XE) + CYLCE) — VA) & CYLES) — 
+06 IF SA << = OO AND SB #4 = OO THEN HPLOT XA,YA To xE 


°YE5: GOTO 13535390 
15519 IF SA # © AND SB *: O©O AND S1 *“ O ANDSE © © THEN HF 
LOT XL{1),Y1L{1) 

TO XL(ES),YL(2): GOTO 15570 


13520 IF SA # = OO THEN XD = XA:YD = YA 
15530 IF SE # = © THEN XD = XB:YD = VE 
1415560 IF Si “# = OO THEN XF = XL(4):VEF = YL(1) 
15570 IF SE # = OQO THEN XF = XL{(SH):YE = YL(Z) 
15550 HPEIEOT XD,YD 


1535370 NEXT J: NEXT 
1537997 RETURN 
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1552 IF SA<= SG THEN XD= XA : VD= YA 
Ç début du regmeut a tracer.) 
15536 IPS <=g THEN XD =XR: VD-VYSÉ 


ASS GIF SA=S THEN xr = XL) : YF= YLA) 
AGIT GE IF S2C=w THEN XF=XL():YF- YLQ) 
ASE SG HPLOT XD,YD To XF, YE 


15 54% NEXTI:NEXTI 
A5 Ga RETURN 


a  — 





PANGRAPHE DESSiN 


Q IF FD = 1 THEN S 

1 L=0:REM PANGRAPHE DESSIN 5/2/:4 

2 DIM XT(30,9),YT(30,9),7ZT(30,9,X(30,9),Y(30,9),N(30):FD = 1 
3 D$ = CHRS (13) + CHRS (4) 

S TEXT : HOME 

S IF C< > © THEN 330 

160 HOME 

20 REM 


PROGRAMME MENU 


30 VTAB i5: HTAB 15 

40 PRINT "“VOULEZ-VOUS:" 

30 FORTE = 1 TO SO00: NEXT 

60 HOME 

7Q PRINT 

20 VTAE 3: HTAB 25: PRINT "PANGRAFHE DESSIN: 

70 VTARE 1 

100 PRINT "1-(CREER UN OBJET)! 

110 PRINT "2-(STOCKER UN OBJET)" 

12 PRINT “3-CHARGER UN OBJET" 

130 PRINT ‘"4-(COMPLETER UN OBJET): 

140 PRINT "S-(MODIFIER UN OBJET) 

150 PRINT "SRE PRESENTER UN OBJET" 

160 FRINT "7-STOCKER UNE IMAGE" 

170 PRINT "£&-CHARGER UNE IMAGE": 

140 FRINT "?-CMANIPULER UN OBJET)" 

190 PRINT "10-(DEFINIR UN BLOC D'OBJETS)" 

200 PFRINT "11-CONSULTER UN FICHIER ELEC" 

210 PRINT "17" 

Æ PRINT "13-" 

230 PRINT ‘'14-" 

240 PRINT ‘15-—" 

250 PRINT ‘14-" 

260 PRINT '"'17-AFFICHER LE CATALOGUE" 

270 PRINT "15-SORTIR DU PROGRAMME" 

270 INPUT "VOTRE CHOIX re 

300 IF C=17 THEN PRINT DS"'CATALOG"': GET A$: GET A% 
310 IF C= 1: THEN END 

320 IF C= 19 THEN PRINT DF'RUNPANGRAPHE PRINCIPAL 
330 ON C GOSUE +409000,40000,4000,40000,40000,7000,2000,90 


7000 
999 GOTO 10 


4000 


RE M 


CHARGEMENT OBJET 


4010 
4020 
4030 
4040 
4050 
4060 
4670 
400 
4090 
4100 
4110 
4120 
4130 
4999 
5000 
2999 


INPUT "NOM DE L'OBJET ":O$ 
D$ = CHR$# (4) 

PRINT D#'OPEN";0O# 

PRINT D$'"'READ";,0# 


INPUT EL 

FOR l=1 TO L 
INPUT Ni) 

NE XT' I 

FOR Il=1TOL 
FOR J = 1 TO NI) 


INPUT XT(I,J): INPUT VT(I,J)- 
NEXT J: NEXT I 

PRINT D$'CLOSE'";,Oo# 
RETURN 

GOSUB 000 

RETURN 


INPUT ZT(I,J} 
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7600 


RE M 


REPRESENTER UN OBJET 


7010 TEXT : HOME 
7020 PRINT : FRINT 
7030 INPUT "OUVERTURE ANGULAIRE ";AN: PRINT 
7040 PRINT "POINT D'OBSERVATION’" 
7050 PRINT : INPUT ‘"'X=",;,XxXM 
70850 INPUT "'"Y='";YM 
7970 INPUT "2Z='",2ZM 
7050 PRINT PRINT "CENTRE G DE L'IMAGE'': PFRINT -: INFU 
T''XG=",;,XG: INPUT 
YG=";, YVG: INPUT "2G=";2C 
709790CX = XG - XM:CY = YG — YM:CZ = 2ZG — ZM 
7100 DI= SOR (COX + CX + CY + CY) 
7110 IF DI = ©O AND CZ + O THEN TE = OC:KI = 3.1418 / 2: GOTO 
7210 
7170 IF DI = © AND C4 O©O THEN TE = O:KI= - 3.149418 / £: GO 
EN Et 0 
7130 KIlz= ATN (CZ / DI) 
71440 IF CX = O©O AND CY : O©O THEN TE = 1.57: GOTO 7210 
7150 IF CX = OO AND CY # O THEN TE = — 1.57: GOTO 7210 
7180 TE = ATN {(CY / CX) 
7170 IF CX 2 © AND CY : © THEN TE = 3.1416 + TE 
7120 IF CX #4 O AND CY # O©O THEN TE = 3.1416 + TE 
719O0 IF CX # OO ANDCY = © THEN TE = 3.141 
7200 IF CX = ©O AND CY # O©O THEN TE = —-3.i1418 / = 
7510 AZ =TE +170 / 2.1416:SI = KI # 170 / 3.141686 
7220 REM AZ AZIMUT;SI SITE 
7:30 CT = COS (TE):ST = SIN {TE ) 
7240 CK = COS (KI):SK = SIN (KI) 
7:50 XU = CK +# CT:YU = CK # ST:ZU = SK 
7260 XV = —- STYV = CT:2V = © 
7270 XW= = SK # CTYW= — SK # ST:2ZW = CK 
7250 HOME 
72090 PRINT "i-OBJET DEJA EN MEMOIRE": FRINT 
7300 PRINT ‘"S-DESSIN PAR ELEMENTS": PRINT 
7310 PRINT "3-DESSIN PFAS 4 PAS": PRINT 
73:70 PRINT "‘4-DESSIN PAR BLOC": PRINT 
7330 INPUT "VOTRE CHOIX ";C: PRINT 
7340 ON C GOSURB 12000,11000,30000,10000 
7PT GET A$: TE XT 


RETURN 
RE M 


S'TOCKER FAGE II 


O0O0OQ 


Us 


oi 
© Ÿ 
© 
© © 


HOME 
INPUT "NOM LE L'IMAGE ";1M# 
D$ = CHRS#& (4) 


PRINT D$'BSAVE'":1M#;",A#4000,L#72000" 
RETURN 
RE M 


CHARGER SUR FAGE II 


3005 
3010 
7015 
70Z0 
7030 
FO6O 
9999 


HOME 

INPUT "NOM DE L'IMAGE®* "IMS# 
HGRE : HCOLOR= 3 

D = CHRE (4) 

PRINT D$'BLOAD';:IM#;",A#$4000" 
GET AŒ& 

TEXT : HOME : RETURN 


10000 KREM 


DESSIN PAR BIGC 


10010 INFUT "NOM DU ELOC ";,BL#&: FRINT 

10030 HGRE : HCOLOR= 3 

10040 HPLOT O©,0 TO =:79,0 TO 279,170 TO 0,190 TO O,0 
10050 FOR K=1iTOE 

10060 ©$S = EL$5(K) 

10070 GOSUEB 4020 

10070 GOSUE 153000 

1007970 NEXT K 

10100 FORT = 1 TO 7: PRINT CHRS (7): NEXT T 

10999 RETURN 
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11000 


RE M 


DESSIN PAR ELEMENTS 


11010 
110720 
11030 
11040 
110435 
11050 
11080 
1070 
11020 


HOME 

INPUT "NOMBRE D'ELEMENTS "EE 

FOR K=1TOE 

INPUT "NOM ELEMENT ";ELS(K) 

NE XT K 

HGR:= HCOLOR= 5 

HPLOT 0,0 TO 279,0 TO 279,190 TO 0,190 TO O©0,0 


FOR K=1TOE 
OS = ELS(K) 
GOSUE 4620 
GOSURB 15000 
NEXT K 
FOR T = 
RETURN 
RE M 


41 TO 7: PRINT CHRS (7): NEXT T 


OBJET DEJJA EN MEMOIRE 


17010 
12020 
17030 
12040 
12999 
15000 


HGRE : HCOLOR= 3 

HPLOT 6,0 TO 279,0 TO 279,190 TO 0,190 TO O©,0 
GOSURB 135000 

FORT = 1 TO 7: PRINT CHRS «{7): 
RETURN 

RE M 


NE XT T 


CALCUL ET TRACE IMAGE 


15010 FOR I=1 TOOL: FOR J= 1 TO Ni) 
15040 XL = XT(I,J) — XM 
15050 YL = YT(I,J) — YM 
15040 ZL = ZLT(CI, T1) — ZM 
15096 XA = XL + XL + VL # YLJ + ZL # ZU 
15100 YA = XL # XV + WE + YWV + ZL # Z\V 
15110 ZA = XI +# XUW + WELL # VIN + ZL # ZW 
15121 IF XA = GC AND YA = OO AND ZA = oO THEN ZA = .001 
15122 RO = SOR (VA # VA + ZA # ZA) 
15125 IF XA4 = ©O THEN B = 90: GOTO 1512z7 
151286 B = ATN (RO / XA):EB = BB +# 1:00 / 3.141 
15127 IF XA # © THEN B = E + 1:=0 
15130 IF YA = © AND ZA = O THEN 4 = 90: GOTO 1510 
15140 IF ZA = O AND YA : O THEN A = — SG: GOTO 151::0 
15150 IF ZA = OO AND VA Q THEN À = 90: GOTO 1510 
13140 # — ATN (YA / ZA): A = A # 10 / 3,141 
15170 IF ZA Oo AND YA O THEN & = A4 — 1:=0 
1517/2 IF ZA O AND YA # O THEN A = À + 1:=0 
151/74 IF ZA O AND YA = O THEN A = 10 
1515:0X = BB + SIN (A # 3.141646 / 120): VV = BB +#x COS (À # 3,141 
f 10) 
152460 X{lrJ) = 140 +X +5 / AN 
15250 Y(ls:J) = 25 —- 25 # Y / AN 
15260 NEXT J: NE XT I 
15220 FOR I=1i TO L 
15290 FOR J = 1 TO NI) — 1 
15300 XA = X{I,J):YA = Y(I,J):FP = O:H = © 
15310 XB = X(I,J + 1):YE = VY(L,J + 1) 
15320 IF VA = VB AND VA : = O AND YA © = 190O THEN XL(1 
2) = O:XL{Z) = T7 
F:YL{1) = YA:VLEE)} = VA:FP = 1: GOTO 154:0 
15325 IF XA = XB AND XA£A # O THEN 155970 
15326 IF XA = XB AND XA * 79 THEN 15590 
15330 IF XA = XB AND XA : = O AND XA # = 279 THEN XL(1) 
= XA:XL(ÉE) = x 
AIYLé1 = O:YL{2) = 190:FFP = 1: GOTO 154:0 
15335 IF YB = YA AND VA + O THEN 15590 
15336 IF YEB = YA AND VA +: 190 THEN 15590 
15340 P = (VB —- VA) / (XB — XA) 
15360 YI= VA —- PP x XA 
15370 IF YI : = OO AND YI = 190 THEN FF = 1:HKH = H + i:Xx1Lt 
H) = O:Y1I(H) 
= YI 
15390 YI= VA + (179 — XA) # F 
15400 IF YI > = OO AND YI “ = 190 THEN FF = 1:H = H + 4:XL<c 
H} = 27/9: VYLt 
H)j = YI 
15470 XI= XA —- YA / FF 
15430 IF XI : = Oo AND XI = “49 THEN FF = 1:H = H + 1:XL(H 
= XI: YL(H 
) = © 
15450 XI = XA +190 — VA) / PF 
154860 IF XI : = © AND XIE = 779 THEN FP = 14-H = H + 1:XL(H 
} = XI: YL(H 
= 170 
15470 IF FF = O0 THEN 15590 
15420 SA = (XA — XL(1)) # (XA — XL(23) + (VA — WELL) # EVA — YIL 


(=) 


107 


15490 SE = (XB — XL(1)) # (XE — XL(Z)) + (YB — YL(1)) # (YEB — YL 


(2 


15492 S1 = (XL(1) — XA) # CXL(1) — XB) + CYLC1) — YA) # CL —Y 
5) 
15494 SE = (XL(T) — XA) # (XL(E) — XB) + CYLE2) — VA) # CYLCE) — Y 
EB) 
15500 IF SA « = O AND SB «+ = © THEN HPLOT XA,YA TO xE5 


YB: GOTO 15570 


15510 


IF SA » © AND SE *: © AND Si # O©O AND SE # O THEN HP 


LOT XL(1):YL(1) 


TO XL{E),YE (2): 


GOTCG 155970 


15520 IF SA *# = ©O THEN XD = XA:YD = YA 
15530 IF SB« = OC THEN XD = XB:YD = YE 
15560 IF Si #4 = O THEN XF = XL(1):VEF = YL(1) 
15570 IF S5 # = O THEN XF = XL(S):YEF = YL(C£) 
15520 HPLOT XD,YD TO XXE, ,YF 

15590 NEXT J: NE XT I 

15999 RETURN 

27000 REM 


LECTURE FICHIER BLOC 


29005 HOME : INPUT "NOM DU EBELOC ";BL$: PRINT 
297010 D$& = CHR {4) 

2020 PRINT L$'"'OPE N'"';:ELE# 

29030 PRINT DF"'READ";EL+ 

27040 INFUT E 

249050 FOR I=1TOE 

27060 INPUT EL$ (I) 

2906535 NEXT I 

E9070 PRINT D$'CLOSE'";BL+# 

2900 FOR I= 1 TOE: PRINT ELS#{I1):- NE XT I 
29090 FOR TT = 1 TO 2000: NEXT TT 

29999 RETURN 

30000 REM 


DESSIN PAS A FAS 


30010 HOME 

30070 INPUT "NOM PREMIER ELEMENT ‘";:O©O#$: FRINT 

30030 GOSUIB 4020 

30040 HGRE : KHCOLORE= & 

30050 HPLOT 0,0 TO 279,0 TO 279,190 TO 0,170 TO G,0 

20060 GOSURB 15000: FOR TT = 1 TO 7: PRINT CHRS (7): NEXT 
LT 

30070 GET A: GET 45 

30020 POKRE —- 184303,0: POKE — 14300,0: REM TEXTE 

306090 INPUT "UN AUTRE ELEMENT * "3R#&: PRINT 

30100 IF LEFTS (R$,1) © > "OO" THEN 309799 

30110 INPUT "NOM DE L'ELEMENT ‘;,O$: PRINT 

30120 GOSURB 40%:0 

230130 POKE - 14804,0: POKE — 165279,0: REM PAGEïiI 

30140 GOSUB 15000: FOR TT = 1 TO 7: PRINT CHRS# (7): NE XT 
LE en 

30150 GET AS: GET 4% 

30160 GOTO 300:0 

30999 RETURN 

40000 REM 


CHAINAGE SUR F/OBJET 


40010 
40070 


PRINT D$'BLOADCHAIN,AS20" 
CALL SEO'PANGRAPHE OBJET" 


Remarque : 


l'ensemble PANGRAPHE-OBJET + PANGRAPHE 
DESSIN a été conçu pour pouvoir être aisément récupéré et 
modifié par l'utilisateur, qui trouvera là une initiation à la 
CONCEPTION ASSISTEE SUR ORDINATEUR (CAO). 
Les Menus comportent des "lignes vides", que le lecteur pourra 
remplir au gré de son imagination. 


1999 : Le BASIC moderne ne comportent plus de “lignes 
programmes". Les têtes de sous-programmes sont repérées à 
l'aide "d'étiquettes", ce qui donne encore plus de souplesse à 
l'ensemble. Toujours est-il que l'ensemble proposé est 
MODULAIRE et que l'utilisateur peut ajouter des sous- 
programmes à l'infini pour enrichir celui-ci. 
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